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Abstract 


This  research  created  a  grafdiics-oriented  computer  program  which  was  used  as  part  of  a 
Visualization,  Verbalization,  Algoridimization  and  Mathematizadon  (WAM)  learning  protocol. 
The  curriculum  for  this  research  was  the  study  of  variaoce/covariance  structures  of  bivariate  and 
muldvariate  normal  populadons.  The  program  displays  the  geometric  images  corresponding  to  die 
various  possible  covariance  structures.  These  Images  facilitate  and  encourage  e^ieriment-based 
self  discovery  learning.  The  program  encourages  die  student  to  take  an  active  role  in  dieir  own 
educadon.  The  program  created  is  self  contained,  calculating  all  the  statisdcal  values  it  requires  to 
create  the  various  geometric  images.  The  student  has  complete  control  in  choosing  what  scenario 
they  wish  to  study.  The  program  was  tested  using  four  specific  scenarios  which  represented  a  cross 
secdon  of  all  possible  scenarios.  Within  each  of  these  scenarios  were  several  opdons  which  were 
designed  to  encapsulate  different  aspects  of  the  curriculum.  The  results  of  the  research  showed 
that  the  program,  under  the  aegis  of  the  WAM,  does  facilitate  the  visualizadon  and  verbalization 
of  the  complex  mathematical  concepts  associated  with  covariance  structures.  The  learning  envi¬ 
ronment  was  found  to  promote  the  aeadon  of  new  knowledge  on  three  distinct  levels. 


INTERACTIVE  GRAPHICS  SYSTEM  FOR  THE  STUDY  OF 
VARIANCE/COVARIANCE  STRUCTURES  OF  BIVARIATE  AND 
MULTIVARIATE  NORMAL  POPULATIONS 


I.  Introduction 


1. 1  General  Issue 

Is  today's  work  force  prepared  to  solve  problems  in  a  world  characterized  by  increasing 
complexity,  rapid  change,  unprecedented  challenges  and  opportunities?  Looking  at  the  nation's 
economic  status,  it  seems  the  answer  is  no.  This  lack  of  preparation  can  be  linked  to  this  country's 
current  state  of  education.  According  to  a  recent  Newsweek  article,  “one  international  study  after 
another  places  U.S.  school  kids  near  the  bottom  of  the  heap  in  mathematical  achievement” 
{Newsweek,  1990:52-54). 

These  poor  achievement  scores  are  just  a  symptom  of  the  real  problem,  which  is  an  educational 
system  that  promotes  passive  learning  and  rewards  students  solely  on  the  basis  of  grades.  This 
passive  learning  environment  aeates  students  (who  later  become  workers)  who  are  complacent 
and  uncreative.  What  is  needed  is  an  educational  process  that  promotes  active  learning.  An 
educational  process  based  on  active  learning  would  provide  an  environment  conducive  to  students 
becoming  creative  and  self-motivated. 

The  challenge,  therefore,  is  to  create  a  new  pedagogy  that  will  lead  to  continuous  improvement 
in  the  educational  system  and  in  the  work  force.  Revamping  the  entire  educational  process  in  this 
country  is  beyond  the  scope  of  this  research.  What  can  be  done,  however,  is  to  change  the  statistical 
pedagogy  at  AFIT  into  a  more  active  learning  process. 

1.1-1  Typical  Learning  Process,  in  the  mathematical  learning  environment  there 
are  two  contrasting  approaches  to  teaching  new  concepts.  lYaditionally,  the  teacher  gives  a  student 
the  concepts  in  a  rigorous  mathematics  language  in  the  form  of  formulas.  The  student  is  then  guided 
through  an  exercise  of  ^plying  these  formulas  to  standard  well-defined  situations  or  cases.  The 
teacher  then  discusses  the  implications  of  each  case.  This  process  ^ould  result  in  the  student  being 
able  to  recite  the  formulas  and  concepts  and  being  able  to  ^ly  them  to  canned  situations.  It  is  also 
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supposed  to  lead  the  student  toward  learning  the  concepts  in  a  meaningful  way.  This  process  is 
characterized  by  four  steps:  Mathematization,  Algorithmitization,  Verbalization  and  Visualization 
(MAW)  (see  Figure  1.1).  This  ^proach  stresses  the  transmission  of  the  teacher’s  knowledge  to 


Mathemization 


Algorithmization 


Varbalization 


Visualization  7 


Figure  1.1.  Typical  Mathematics  Learning  Process 


the  student  and  encourages  passive  and  uncreative  behavior.  Such  a  learning  system  promotes 
boredom  and  precludes  stimulating  the  mind  of  the  thoughtful  student. 

1.1-2  Contrasting  Learning  Process — WAM.  a  contrasting  process  to  the 
typical  passive  MAW  approach  is  the  Visualization,  Verbalization,  Algorithmitization,  Mathe¬ 
matization  or  WAM  Protocol  (see  Rgure  1.2)  developed  by  Stone  W.  Hansard  (Hansard, 
1990:24-30).  In  contrast  to  the  MAW  process,  the  WAM  protocol  stresses  a  student’s  active 
involvement  in  the  learning  process  from  the  beginning.  In  the  first  step:  visualization,  the  student 
must  concentrate  and  experiment  with  dynamic  images  representing  the  concept  the  instructor  is 
attempting  to  motivate.  Next,  the  student  must  articulate  and  verbalize  what  he  sees.  Then  the 
student,  not  the  teacher,  is  asked  to  create  an  algorithm  which  formalizes  the  mathematical  activity 
encompassed  by  the  visualization.  Finally,  the  student  is  asked  to  translate  the  algorithm  into  the 
formal  language  of  mathematics  (see  Figure  1.2).  The  WAM  demands  that  a  student  actively 


Figure  1^  WAU  Learning  Protocol 


involve  himself  in  the  learning  process  and  requires  him  to  create  knowledge  he  needs  for  himself 
instead  of  suggesting  the  teacher  transfer  such  knowledge  directly  to  the  student 
The  MAW  process  rewards  a  student  for  producing  an  approfffiate  response  to  an  instructor’s 
query,  while  the  WAM  protocol  rewards  a  student  for  being  an  active  participant  in  a  aeative  and 
constructive  learning  process.  The  contrast  between  the  MAW  process  and  the  WAM  process 
is  obvious  (see  Figure  1.3).  llie  MAW  process  rewards  the  student’s  ability  to  accept  the  product 
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Figure  1J3.  Contreeting  MW  end  WAM 


(new  knowledge),  while  the  WAM  process  continually  rewards  the  student  by  allowing  him  to  be 
creative  and  be  involved  in  the  learning  process. 

1.1-3  Schwab’s  Commonplaces,  in  order  to  develop  and  implement  a  new  learn¬ 
ing  process,  it  is  important  to  identify  the  key  elements  of  any  educating  event.  According  to 
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Schwab,  the  learning  process  has  four  commonplaces:  “the  teacher,  the  student,  the  curriculum  and 
the  milieu  or  govanance”  (Schwab,  1973:502).  These  commoiqilaces  can  be  viewed  as  the  nodes 
of  a  multifaceted  tetrahedral  system  comprised  of  the  triad:  student,  teacher  and  curriculum  on  a 
single  plane,  and  the  governance,  hovering  above,  superior  and  setting  the  standards  for  total 
system  behavior.  Figure  1.4  shows  this  interrelationship  and  how  each  element  of  the  educating 


Figure  1.4.  Schab’t  Four  Commonplace* 


system  interacts  with  all  other  parts  of  the  system.  “It  is  the  teacher’s  obligation  to  set  the  agenda, 
and  to  decide  what  knowledge  might  be  considered  in  what  sequence”  (Novak,  1990:6).  The 
student  or  the  learner,  suggests  Novak, 

Must  choose  to  learn;  learning  is  a  responsibility  that  cannot  be  shared....  The 
cuniculum  comprises  the  knowledge,  skills,  and  values  of  the  educational 
experience  that  meet  criteria  of  excellence  that  make  them  worthy  of  study. 

(Novak,  1990:6) 

(jovemance,  or  the  milieu, 

is  the  context  in  which  the  learning  experience  takes  place,  and  it  influences 
how  the  teacher  and  student  come  to  share  the  meaning  of  the  curriculum. 

(Novak,  1990:6) 

In  most  schools,  teachers  are  competent  to  teach  their  respective  subjects  and  students  will  agree 
that  they  need  to  take  an  active  role  in  their  education.  And  certainly,  both  students  and  teachers 
realize  their  responsibility  for  maintaining  an  interactive  relationship  with  the  curriculum.  If 
governance  is  oppressive,  it  can  hamper  and  even  ctestroy  the  viability  of  such  critical  interde- 
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pendencies.  The  fact  is,  governance,  whether  oppressive  or  libertarian,  is  typically  outside  the 
domain  of  control  of  either  student  or  teacher.  Therefore,  any  pedagogy  that  is  developed  must  be 
constructed  to  function  within  current  constraints  of  the  operative  governance.  The  other  common¬ 
places:  the  curriculum,  the  teacher  and  the  student,  can  then  be  internally  restructured  and 
externally  integrated  to  ensure  that  an  effective  learning  environment  manifests. 

The  three  elements  of  the  education  event — ^the  triad  of  the  student,  the  teacher  and  the 
curriculum  (see  Rgure  1.5)  should  be  the  focus  for  any  pedagogical  innovatioa 


The  teacher’s  role  under  the  VVAM  protocol  is  to  create,  monitor,  control  and  enhance  the 
learning  process.  The  teacher  should  aeate  an  agenda,  decide  what  concepts  the  students  need  to 
learn  and,  generally,  suggest  in  what  order  these  should  be  studied.  Additionally,  the  teacher  should 
gauge  a  student’s  ability  to  construct  new  knowledge  throughout  the  learning  process.  Knowledge 
construction  is  facilitated  by  a  teacher’s  constant  questioning  of  the  student.  The  temptation  to  give 
away  answers,  thus  denying  a  student  the  opportunity  for  learning  a  concept  on  his  own,  should  be 
resisted. 

For  the  purpose  of  this  research,  the  student  will  be  working  to  learn  the  concepts  of  multivariate 
statistics  and,  in  particular,  the  characteristic  principles  of  covariance.  The  curriculum  will  be 
captured  in  an  interactive  graphics  system  in  which  a  student  can  visualize  and  verbalize  covariance 
structures.  Once  these  covariance  structures  are  comprehended,  they  can  be  used  to  creatively 
generate  algorithms  and  formulate  mathematical  models  of  the  theoretical  and  empirical  covari¬ 
ance  structures.  This  will  create  a  rich  two-way  intwaction  between  the  student  and  the  curriculum 
(see  Figure  1.7). 

The  purpose  of  this  research  was  to  determine  if  a  meaningful  learning  process  could  be 
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developed  using  a  computer  graphics  program  and  the  WAM  protocol  created  by  Hansard 
(Hansard,  1990:24-30). 

1.2  Specific  Probiem 

The  problem  has  two  facets; 

1.  How  can  a  passive  book/test  centered  learning  activity,  which  is  primarily  a  rote/reception 
learning  exercise,  be  transformed  into  an  active  and  meaningful  learning  exercise  where 
discovery  learning  is  fostered  and  encouraged? 

2.  What  is  the  most  efficacious  way  to  use  a  computer  to  create  an  interactive  and  grai^cally- 
based  learning  system? 

Such  questions  imply  the  conputer  is  the  key  to  interaction  between  the  student  and  the  curriculum — 
guided  and  facilitated  by  the  teacher,  (see  Figure  1.6).  This  was,  indeed,  the  major  stimulus  for  the 
research  carried  out  during  this  thesis  effort. 


1.3  Investigative  Question 

Given  the  problem,  as  stated  above,  it  is  now  possible  to  formulate  the  main  question  posed  by 
this  thesis,  mainly: 
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Can  a  personal  computer-based  interactive  gr^hics  system  be  developed  and  employed  under 
the  aegis  of  the  WAM  protocol  to  aeate  an  imaginative,  visually  interactive,  meaningful  learning 
environment  for  the  study  of  covariance? 

1.4  Research  Hypotheses 

Finding  an  adequate  answer  to  this  investigative  question  involved  obtaining  reasonable  support 
for  the  following  three  research  hypotheses. 

1.  Tlie  WAM  learning  protocol,  developed  by  Hansard,  can  be  used  to  orchestrate  an  experi¬ 
ment-based  environment  for  constructively  teaming  and  actively  exploring  variations  of  the 
covariance  structure  associated  with  selected  multivariate  databases. 

2.  Computer-generated  graphic  images,  embedded  in  an  appropriately  pictorialized  vector 
space,  can  be  employed  to  enhance  the  identification  and  understanding  of  critical  statistical 
features  traditionally  used  to  characterize  the  covariance  structure  of  bivariate  and  multi¬ 
variate  normal  populations. 

3.  Exercising  a  graphics  oriented  program  to  assist  the  first  two  steps  of  the  WAM  protocol, 
visualization  and  verbalization,  and  relevant  heuristics  for  constructive  learning  will  enable 
students  to  gain  a  profound  and  experiment-based  mastery  of  the  multivariate  covariance 
analysis  concepts. 

1.5  Justification  for  Research 

Traditionally,  classroom  presentations  of  mathematics  and  statistics  emphasize  the  transmission 
of  knowledge,  formulae  and  techniques  for  conducting  operations  associated  with  descriptive  and 
inferential  procedures.  Symbols  are  introduced  for  such  entities  as  the  sample  mean  and  the  sample 
variance  as  students  are  encouraged  to  rotely  memorize  and  blindly  ^ply  formula  without  really 
understanding,  or  being  encouraged  to  understand,  the  rationale  and  fundamental  theory  motivat¬ 
ing  the  application  of  said  formula. 

Thus,  learning  becomes  a  passive,  rather  casual  affair  an  exercise  in  arithmetic  for  the  sole 
purpose  of  “being  able  to  pass  exams”  routinely  administered  in  the  conventional  math  or  stat 
course  to  “assess  what  the  student  has  teamed.”  After  years  of  mastering  the  strategy  and  tactics 
of  rote  learning,  some  students  do  very  well,  others  demonstrate  average  mastery  of  the  material, 
white  still  others  drop  out  in  sheer  terror  or  boredom  sensing,  som^ow,  such  “teaming  exercises” 
ought  to  be  offered  to  those  who  cannot,  or  simply  do  not  wish  to  exercise  their  reasoning  faculties. 
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Certainly,  many  teachers  and  many  students  are  not  content  to  remain  under  such  a  mindless 
regime.  The  brighter  and  more  attentive  students  usually  try  to  ask  questions,  seeking  at  least  some 
insight  into  what  they  are  being  told  to  do  to  survive  the  course.  Teachers,  frustrated  with  such 
“cookbook  oriented  activity,"  make  sincere  efforts  to  explain  the  properties  and  importance  of  what 
is  being  covered  in  the  course.  Some  even  attempt  a  soaatic  dialogue,  hoping  that  something  they 
say  will  spark  student  enthusiasm.  In  such  classrooms,  where  at  least  the  motions  of  learning 
behavior  can  be  observed,  conversations  and  dialogue  begin  to  lift  the  pall  of  ennui.  Some  students 
even  begin  to  ask  for  more  work  than  assigned  or  suggest  they  be  allowed  to  take  on  “special 
projects.”  Alas,  almost  always,  governance  and  the  sheer  magnitude  of  competing  priorities  (other 
classes  and  concurrent  rote  learning  exercises,  exams,  etc)  defeat  the  best  efforts  of  die  most 
aggressive  and  self-motivated  student  After  an  initial  sense  of  excitement,  the  learning  system 
soon  settles  down  into  an  even  more  befogging  process  as  those  students  and  teachers,  who  at  least 
gave  “the  better  way"  a  go,  become  discouraged  and  overwhelmed  by  conventional  demands  to 
achieve  “high  test  scores"  and  “superior  performance  on  timed  exams.” 

The  fact  is  mathematics  is  a  language:  words,  terms,  and  symbols,  and  so  forth  that  needs  to  be 
used  in  a  aeative  way  if  the  abstract  representations  facilitated  by  the  syntax  and  structures  of  the 
language  are  to  be  meaningfully  mapped  to  real  world  phenomena.  Such  employment  of  the 
language  must  be  an  active  and  creative  exercise  on  the  part  of  both  student  and  teacher.  New 
knowledge  is  constructed,  as  Ausubel,  Gowin  and  Novak  so  eloquently  suggest.  Certainly,  such 
knowledge  construction  necessarily  requires  rote  memorization  of  key  terms,  concepts,  and  the 
ability  to  intelligently  manipulate  the  entities  that  constitute  the  working  elements  of  the  language. 
But,  such  activities,  as  important  as  they  are,  are  not,  and  should  not  be,  the  central  focus  of  a  course 
in  statistics  or  any  mathematically  based  curriculum.  Students  must  be  encouraged  to  actively  use 
the  language  of  mathematics  to  model  what  they  observe  in  the  real  world,  or  their  mental  world, 
after  they  have  a  chance  to  see  or  visualize  just  what  it  is  they  need  to  model.  The  traditional 
emphasis  on  the  transmission  of  knowledge  and  presentation  of  formulae  with  the  hope  that 
students  will  understand  their  significance  at  some  later  time  should  be  reversed — 180  degrees. 
First,  the  signiflcance  of  any  concept,  formulation,  or  principle  needs  to  be  mastered.  This  requires 
an  environment  in  which  concepts  and  their  significance  can  be  visualized  and  discussed  with 
sufficient  involvement  of  both  student  and  teacher  to  ensure  the  student  can  articulate  what  any 
concept  really  means:  both  in  thetvy  and  in  practice.  Only  then  should  a  student  be  encouraged  to 

1.8 


algOTitlunitize  a  procedure  competent  to  implement  the  concept  and  creatively  formulate  a  mathe¬ 
matical  statement  that  symbolically  c^tures  the  essence  of  what  he  now  understands  about  the 
concept  under  study. 

Students  need  to  know  they  can  construct  whatevor  tools  they  may  require — especially  in  die 
face  of  unprecedented  problems  which  they  will  inevitably  encounter  during  research  activities  and 
upon  graduation  into  the  greater  world  of  military  and/or  industrial  management  This  thesis  effcMt 
develops  a  gr^hically  based  learning  environment  in  which  students  can  gain  such  confidence  and 
competence.  It  fosters  an  intense  visual  encounter  with  mathematics  and  statistics  from  the  start  of 
any  learning  exercise.  Via  the  adoption  of  the  WAM  heuristic  it  reverses  the  traditional  practice 
of  formalistic  presentation  of  mathematical  symbology  before  demands  are  made  for  meaningful 
comprehension  of  concepts.  An  example  of  such  pedagogy  may  help  the  reader  gain  an  apprecia¬ 
tion  of  the  emphasis  and  revolutionary  implications  of  this  thesis. 

The  concept  of  linear  independence  of  vectors  plays  a  major  role  in  matrix  algebra.  Consider 
the  task  of  helping  students  acquire  the  notion  of  what  linear  independence  implies.  One  can  find 
a  multitude  of  math  texts  that  give  a  formal  and  highly  rigorous  definition  of  linear  independence. 
Indeed,  that  is  often  the  way  students  encounter  the  concept  in  the  first  place.  After  “burning  a 
theorem  or  two  into  their  brains”  (rote  memorization  par  excellence)  they  are  shown  some 
mathematical  formulations  and  manipulations  that  suggest  how  to  demonstrate  linear  inde¬ 
pendence  between  two  veaors.  If  asked  at  this  point  in  time  what  independence  means  or  what 
utility  the  concept  may  have  in  the  practice  of  matrix  methods  most  students  respond  with  a  blank 
bewildered  look  on  their  face.  You  may  even  hear  “who  cares”  from  some.  As  far  as  their 
concerned  they’ve  got  the  notion  in  memory  and,  if  queried  about  it,  can  parrot  back  verbatim  what 
they’ve  “learned.”  If  awarded  an  A  for  such  effort — you  can  be  assured  they  are  already  onto  some 
new  tof^c — confident,  based  on  instructor  feedback,  they  have  mastered  the  concept 

'The  system  designed  by  this  thesis  would  suggest  first  a  picture,  an  image,  of  two  inde¬ 
pendent/dependent  vectors  be  displayed  for  student  observation.  It  would  then  suggest  die  student 
be  asked  to  verbalize  what  characteristics  he  can  observe  about  the  vectors  that  might  suggest  they 
were  independent/dependent  however  that  might  be  mathematically  formulated.  Since  geometric 
vectors  have  both  magnitude  and  direction  the  student  can  be  asked  to  relate  the  images  to  real 
world  phenomena  and  asked  to  articulate  what  the  direction  and  magnitude  of  the  displayed  vectors 
might  symbolize.  Once  the  instructor  is  confident  the  articulation  of  the  concept  is  competent  and 
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complete,  then  and  only  then  should  the  task  of  constructing  an  algorithm  to  assess  for  inde¬ 
pendence/dependence  and  a  formal  mathematical  symbolization  of  the  concept  be  introduced. 
Why?  Because  once  the  concept  is  understood  in  a  meaningful  way,  the  symbols,  the  formula,  and 
the  rigor  captured  by  succinct  mathematical  symbolization  will  mean  something  to  the  student.  He 
will  have  constructed  the  meaning  on  his  own,  with  the  help  of  the  instructor  to  be  sure,  and  rather 
than  being  requested  to  memorize  a  meaningless  mass  of  strange  and  sometimes  intimidating  set 
of  characters  (Greek  or  otherwise)  he  will  value  the  compactness  and  conciseness  of  such  linguistic 
tools  and  find  it  a  natural  act  to  speak  about  what  he  sees  quite  clearly  and  can  articulate  in  his 
mother  tongue,  at  will,  in  a  more  rigorous  way.  If  not  immediately,  rather  soon  into  such  a  learning 
process,  he  will  find  it  more  convenient  to  speak  with  his  instructor  in  the  language  an  instructor 
is  rather  anxious  to  speak — the  language  of  his  profession.  And,  with  the  recognition  of  his  own 
growing  competency,  now  in  full  consciousness,  the  student  will  fire  up  with  a  joy  and  enthusiasm 
for  learning  that  simply  never  goes  out.  The  flame  of  inspiration  that  drives  all  scholars  relentlessly 
in  their  pursuit  of  learning  can  be  shared  with  the  student  in  a  dynamic  aeative  dialogue  about  the 
subject  at  hand. 

1.6  Scope  of  Research 

This  thesis  confines  its  focus  to  the  domain  of  multivariate  statistical  pedagogy  and  in  particular 
to  scenarios  involving  the  generation  or  collection  of  a  single  data  sample.  Both  bivariate  and 
multivariate  covariance  structures  are  evaluated  under  situations  involving  the  estimation  and/or 

testing  of  the  bivariate  or  multivariate  population  mean  vector. 

A  generic  pedagogy  is  developed  that  is  computer  based  and  geometrically  motivated.  The  thesis 

effort  is  confined  to  the  construction  of  a  graphically  based  system  and  a  preliminary  evaluation  of 
statistical  neophytes’  ability  to  study  selected  concepts  of  covariance  analysis  in  an  interactive  way 
under  the  aegis  of  the  WAM  learning  heuristic  evolved  by  Hansard  (Hansard,  1990:24-30).  No 
formal  evaluation  of  system  performance  is  undertaken  at  this  time.  Therefore,  any  generalizations 
made  by  thesis  are  tentative  and  confined  to  environments  similar  to  that  created  by  the  product  of 
the  thesis. 
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II.  Background 


2. 1 1ntroduction 

FYeliminary  to  the  development  of  an  lutequate  learning  system,  this  research  effmt  had  to 
establish  an  adequate  foundation  for  the  methodology  outlined  in  Ch^>ter  ni  by  completing  three 
tasks: 

1 .  The  major  elements  of  Ausubelian  Learning  Theory  neetted  to  be  studied  and  tabulated. 

2.  The  need  for  a  learning  system  to  study  covariance  had  to  be  demonstrated  to  exist  in  die 
statistical  community. 

And  finally. 

3.  The  accomplishments  of  AFIT  students  Stone  Hansard  and  Steven  Pearce,  both  whom 
employed  the  WAM  during  their  AFIT  thesis  research,  had  to  be  reviewed. 

2.2  Learning  Theory 

One  of  the  keys  to  developing  and  successfully  implementing  the  learning  intx:ess  develtqied 
by  this  thesis  was  obtaining  a  solid  understanding  of  the  basic  principles  of  Ausubelian  Learning 
Theory.  The  core  elements  of  this  theory  have  been  documented  by  Joseph  D.  Novak  and  D.  Bob 
Gowin  who  were  students  of  David  Ausubel.  Certainly,  the  most  relevant  premise  of  AusubeTs 
theory  of  learning  serving  the  purposes  fills  thesis  is  the  assertion  that  knowledge  Is  constructed. 

Knowledge  is  constructed.  That  people  discover  knowledge  is  a  common 
myth.  Discovery  may  play  a  role  in  the  production  of  new  knowledge,  but  it 
is  never  more  than  just  one  of  the  activities  involved  in  creating  new 
knowledge.  (Novak  &  Gowin,  1990:4) 

In  other  words,  “knowledge  is  not  discovered  like  gold  oil,  but  rather  constructed  like  cars  or 
pyramids”  (Gowin  &  Novak,  1990:4)  Novak  and  Gowin  suggest  ‘'The  construction  of  new  knowledge 
begins  with  our  observations  of  events  or  objects  fiirough  the  concepts  we  dready  possess”  (Novak  & 
(jowin,  1990:4)  This  is  exactly  what  occurs  in  file  visualization  and  verbdization  steps  of  the  WAM 
pr<»ocol. 

Gowin  and  Novak,  following  AusubeTs  lead,  suggest  any  learning  exercise  can  be  represented 
by  a  coordinate  pair  in  a  2  dimensional  plot  where  file  horizontal  axis  represents  a  continuum  of 
learning  activity  from  totally  passive  to  utterly  self-guided  and  the  vertical  axis  rqxesents  mental 
activity  from  rote-memorization  to  creative  and  dynamic  thinking.  Rote  and  meaningful  learning 
are  contrasted  in  Table  2. 1 .  IHgure  2. 1  suggests  reception  learning  implies  information  to  be  learned 
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TABLE  Z 1.  Contmting  Rot»  and  Uaanlngful  Laaming 
(Novak  A  Gowin.19a0:ie7) 


Rote  Learning 


Meaningly  Learning 


Aibitraty,  verbatim,  non-substantive  incorporation 
of  new  knowledge  into  cognitive  structure. 

No  effort  to  integrate  new  knowledge  with  existing 
concepts  in  cognitive  stmcture. 

Learning  not  related  to  experience  with  events  or 
objects. 

No  affective  commitment  to  relate  new 
knowledge  to  prior  learning. 


Non-arbitrary,  non-verbatim,  substantive 
incorporation  of  new  knowledge  into  cognitive 
structure. 

Deliberate  effort  to  link  new  knowledge  with 
higher  order,  more  inclusive  concepts  in  cognitive 
stmcture. 

Learning  related  to  experiences  v^h  events  or 
objects. 

Affective  commitmenl  to  relate  new  knowledge  to 
prior  learning. 


is  selected  and  transferred  by  the  instructor  while  discovery  learning  requires  that  the  student 
identifies  and  chooses  the  relevant  information  to  be  learned.  (Novak  &  Gowin,  1990:7) 

Once  the  author  of  this  thesis  was  confldent  that  a  theoretical  basis  to  guide  development  of  the 
learning  environment  proposed  by  this  thesis,  statistical  periodicals  were  reviewed  in  search  for 
suggestions  and  support  for  a  computer-based  grtq}hical  system  designed  to  facilitate  the  study  of 
covariance. 


2.3 Supporting  Documentation  fora  Geometric  Presentation  of 
Statisticai  Concepts 

Marvin  S.  Margolis  states  in  one  of  this  ps^s. 
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Flgun  Z1.  Laaming  Continuuma  (Novak  A  Gowin,  1990:8) 
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An  understanding  of  tbe  geometric  aspects  of  dementaiy  statistics  may 
sometimes  assist  a  student  of  statistics  more  dian  elegantly  derived  formulas. 

(Margolis,  1979:131) 

Margolis  sees  “geometric  diinldng...as  a  nwans  of  visualizing  and  thereby  in^xoving  a  student’s 
conqrdiension  of  basic  statistics"  (Margolis,  1979:131).  Margolis  and  ttie  audior  of  this  thesis  are 
convinced  diat  the  geometric  qiproach  to  teaching  statistics  is  a  powerful  tool  for  conveying  basic 
statistical  ooncqits  to  students  (Margolis,  1979:135). 

Savllle  and  Wood  point  out  that  the  main  body  of  statistical  concq>ts  and  m^hods  are  the 
“simple  qjplication  of  die  mathematics  of  Euclidean  N-demensional  space”  (Saville  &  Wood, 
1986:205).  They  suggest  that  a  teadiing  method  Is  needed  to  bridge  the  gap  between  rote  style 
methods  (used  in  many  basic  statistical  courses)  and  the  extremely  sophisticated  derivation 
methods  (used  in  higher-level  mathematical  based  courses).  They  feel  the  method  of  greatest 
promise  is  the  geometric  r^oach  (Saville  &.  Wood,  1986:205).  Also,  Bryant,  alluding  to  Au- 
subel’s  ideas  of  linking  ideas  within  a  cognitive  structure,  says,  “Geometry  seems  to  be  die  natural 
way  to  emphasize  the  unity  of  the  fundamental  ideas  [of  statistics]”  (Bryant,  1984:38). 

Because  the  author  of  this  thesis  knew  a  geometric  approach  ^iplied  to  die  study  of  covariance 
would  require  the  develoixnent  of  a  dynamic,  conqmter-based  interactive  2  and  3-dimensional 
display  environment,  a  review  of  die  work  of  Stone  Hansard  and  Steve  Pearce,  former  AFTT 
students  who  pursued  such  software  derign  as  part  of  their  thesis  research,  was  undertakea 

2.4  Previous  Work  with  WAM 

Hansard  ^plied  the  WAM  protocol  to  matrix  algebra.  His  particular  study  did  not  exercise  the 
WAM  protocol’s  full  potential  and  did  not  facilitate  a  geometric  approach.  Steve  Pearce  applied 
the  WAM  ixotocol  to  die  teactting  of  the  General  Linear  Model,  an  area  of  statistics  that  Bryant, 
Saville  and  Margolis  suggested  would  benefit  from  sudi  an  approach. 

Pearce  demonstrated  it  was  possible  to  project  vectors  in  a  3-dimensional  space  diat  could  be 
manipulated  and  viewed  from  various  angles  (Pearce,  1991:32-61)  Pearce  also  created  several 
software  procedures  that,  with  minor  modifications,  can  be  used  to  input  and  display  various  sized 
matrices  on  the  computer  screea  (Pearce,  1991:127-136)  Unfortunately.  Pearce  was  not  able  to 
extend  his  system  to  encompass  the  study  of  covariance  and  covariance  structures  of  bivariate  and 
multivariate  normal  distributions.  'Therefore,  die  authcx'  of  diis  research  decided  to  devote  his 
research  activity  to  the  design  and  implementation  of  a  system  for  the  geometric  study  of 
covariance. 
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The  following  chapter  documents  the  methodology  he  used  to  accomplish  this  task  and  i^-ovides 
a  comprehensive  review  of  the  five  major  phases  involved  in  designing,  constructing  and  evaluat¬ 
ing  the  software  required  to  bring  the  system  to  an  operational  status. 
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III.  Methodology 


3. 1 1ntroduction 

Creating  a  meaningful  learning  environment  for  the  study  of  variable  dependencies  involved  the 
computerization  of  a  standard  MAW  driven  curriculum  into  a  WAM  governed  interactive 
graphics  system  for  visualizing  covariance  structures.  The  methodology  used  to  accomplish  this 
task  is  outlined  by  this  chapter.  Implementation  of  die  research  design  required  the  completion  of 
two  research  activities: 

1.  finding  an  answer  to  the  investigative  question  posed  by  the  thesis  and 

2.  evaluating  the  three  research  hypotheses  posed  by  the  thesis. 

The  sample  data  acquired  to  complete  these  two  important  tasks  was  obtained  by  generating 
selected  graphical  displays  during  WAM  governed  learning  exercises  in  which  the  author  of  this 
thesis  served  both  as  student  and  evaluator.  Formal  assessment  of  the  learning  system’s  ability  to 
provide  a  meaningful  learning  environment  for  studying  covariance  was  accomplished  by  flying 
subjective  criteria  to  a  limited  and  carefully  selected  set  of  statistical  scenarios.  The  following 
sections  present  an  overview  of  the  paradigm  employed  to  carry  out  the  research  effort  and  outline 
the  format  of  the  graphical  images  produced  by  the  graphics  program.  The  final  section  documents 
the  evaluation  criteria  that  were  used  to  assess  how  effectively  the  images  of  covariance  structure 
produced  by  the  program  facilitated  the  student’s  ability  to  master  the  concept  of  covariance. 

3.2  The  Overall  Research  Design 

The  research  design  employed  by  this  thesis  was  developed  to  ensure  a  meaningful  learning 
environment  could  be  constructed.  The  following  process  flow  diagram  provides  a  macro-level 
image  of  the  overall  research  desiga  Succeeding  sections  of  the  chapter  document  specific  steps 
undertaken  to  complete  the  following  five  leases  of  the  research  methodology  (see  Figure  3.1.  page 
3.2). 

1.  overall  planning 

2.  reviewing  and  documenting  the  mathematical  foundations  of  covariance 

3.  developing  software  to  display  covariance  structures 

4.  selecting  scenarios  to  demonstrate  the  ability  of  the  software  system  to  create  a  meaningful 
learning  environment  for  the  study  of  covariance 

5.  establishing  criteria  to  evaluate  the  leanu’ng  system’s  efficacy. 
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Figure  3.1.  Program  Developmertt  Proceee 


3.2- 1  Phase  1 — Overall  Planning.  TOs  turned  out  to  be  the  most  important  phase 
of  this  thesis  effort  since  it  was  at  this  point  in  the  research  process  that  the  vision  and  goals  of  the 
thesis  were  established.  The  vision  involved  determining  precisely  what  images  of  covariance  the 
graphics  program  should  produce  and  the  steps,  both  pedagogic  and  programming,  that  would  be 
required  to  ensure  successful  development  of  the  final  product:  a  meaningful  learning  system.  A 
detailed  list  of  program  specifications  was  developed  and  ultimately  consisted  of  the  following 
requirements: 

1.  The  program  should  display  geometric  images  which  characterized  the  covariance  structure 
to  the  student. 

2.  An  option  to  display  2-dimensional  or  3-dimensional  images  should  exist,  in  response  to  the 
student’s  choosing,  to  study  data  generated  from  either  a  bivariate  or  multivariate  normal 
population. 

3.  Images  should  be  capable  of  being  rotated  around  all  axis  in  order  to  allow  the  student  to  view 
any  geometric  image  from  all  angles. 

4.  The  student  should  be  able  to  enlarge  ot  shrink  images,  at  will. 

5.  The  screen  should  be  organized  into  four  subscieens.  One  section  should  be  devoted  to 


displaying  key  statistical  values  while  the  other  three  sections  should  contain  different 
graphical  images. 

6.  The  student  should  be  able  to  request  enlargement  of  any  section  of  the  three  graphics  saeens 
so  as  to  fill  the  entire  screen  with  that  one  subscreen  thus  allowing  a  student  to  make  a  closer 
examination  of  the  particular  image  displayed  by  that  subsaeen. 

7.  The  program  should  facilitate  the  ii^utting  of  data  from  both  the  keyboard  and  from  data 
stored  on  a  disk. 

8.  The  program  should  use  different  colors  to  highlight  and  distinguish  critical  items  displayed 
on  the  larger  screen  or  subsaeens. 

9.  The  program  should  display  a  saeen  of  summary  statistical  data  prior  to  displaying  graphs. 

10.  The  program  should  have  the  ability  to  be  restarted  quickly  so  that  new  images  can  be 
displayed  before  previous  images  are  forgottea 

11.  The  program  should  calculate  all  required  statistical  values  internally. 

Once  these  requirements  were  delineated,  a  comprehensive  review  of  the  mathematical  concepts 
involved  in  carrying  out  this  covariance  analysis  was  undertaken.  The  multivariate  concepts 
required  to  complete  this  thesis  effort  are  documented  in  the  following  sectioa 


3.2-2  Phase  2— Documentation  of  Mathematical  Foundations  of 
Covariance  Analysis.  Real  world  complexity  typically  involves  the  simultaneous  interac¬ 
tion  of  many  factors  which,  when  measured  and  evaluated  as  a  group,  requires  the  assimilation  of 
a  fixed  number  of  observations  on  two  or  more  variables. 

Whenever  the  concern  is  with  analyzing  measurements  made  on  several  variables  these  meas¬ 
urements  (or  data)  are  usually  arranged  and  displayed  in  various  ways.  Multivariate  covariance  and 
correlation  analysis  which  are  the  main  subject  of  tius  thesis  require  measurements  to  be  recorded 
in  a  matrix,  a  rectangular  array,  usually  symbolized  by  an  X  matrix  of p  rows  and  n  columns. 
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This  array  X  contains  the  data  consisting  of  n  observations  on  p  variables.  In  this  thesis,  analyses  are 
constrained  to  the  bivariate  (2  variable  scenario)  or  trivariate  (3  variable  scenario)  since  graf^cal 
displays  beyond  3-ditnensions  are  difficult,  if  not  impossible,  to  display. 

Descriptive  statistical  evaluation  of  such  a  data  array  attempts  to  summarize  (graphically  or 
numerically)  outstanding  tendencies  of  the  particular  sample  of  daa:  its  central  tendency,  the 
individual  variances  of  single  random  variables,  and  most  importantly,  the  synergetic  association 
of  every  pair  of  random  variables.  It  is  the  role  of  the  covariance  matrix  to  succinctly  represent 
such  synergy. 

This  research  effort  formulates  three  categories  of  multivariate  gr^hical  displays.  Each  pre¬ 
sumes  an  underlying  multivariate  normal  population  drives  the  data  generation  process.  These 
categories  of  display  are,  respectively: 

1.  Theoretical/population  distribution  displays 

2.  Empirical/sample  estimation  displays 

3.  Empirical/sample  testing  displays. 

To  bring  up  each  display  one  or  more  parametric  and/or  statistical  entities  need  to  be  computed 
and  analyzed.  The  parameters  or  statistics  utilized  by  each  type  of  display  are  arrayed  in  the 
following  table  by  their  domain  of  employment  and  archetypical  statistical  concept.  Next,  their 
formulation  and  significance  for  this  study  are  presented.  The  manner  in  which  they  are  employed 
within  the  computer  based  learning  system  and  the  more  general  implications  of  displays  the 
software  system  can  generate  are  covered  in  methodological  and  analysis  discussions  found  in 
Chapters  III  and  IV  of  this  thesis. 

3.2-2.1  Major  Data  Descriptors.  To  generate  theoretical  population  displays  or  dis¬ 
plays  involving  statistical  inference  three  fundamental  statistical  entities  must  be  computed  via 
algebraic  formulae  or  the  results  from  the  calculus  of  probability.  The  rows  in  Table  3.1  on  the 
following  page,  list  these  entities  by  name.  Column  headings  are  employed  to  designate  the  display 
domain  (i.e.  theoretical  estimation  or  testing)  in  which  an  entity  is  being  used.  A  specific  formula 
and  a  general  description  of  each  entity  follow.  The  interested  reader  can  review  the  full  derivations 
in  Johnson  and  Wichem’s  second  edition  of  Applied  Multivariate  Statistical  Analysis. 

These  entities  serve  as  the  critical  building  blocks  and  main  input  to  software  generating  the 
geometrical  displays  of  covariance  structures  associated  with  a  Multivariate  Normally  Distributed 
Random  Vector  X:  a  vector  whose  elements  are  the  random  variables. 
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Tidile  3. 1.  Summary  Table  of  Statistical  Descriptors 
Utilized  During  Covariance  Analysis  of  a  Single  Sample  of  Multivariate  Normal  Distributed  Data 


Domain 

(Dateeet) 

Theoretical 

(Population) 

Estimation 

(S«Hnpl^ 

(^mple) 

1  Entity 

.  . .  1 

Mean 

jf 

HO.  X 

Covariance  Matrix 

S,^ 

n 

Correlation  Matrix 

P 

R 

R 

Note:  The  same  entities  and  domains  are  operative  whether  one  is  dealing  with  a  bivariate  or  trivariate 
(multivariate)  population  and/or  data  sample. 

In  order  to  document  the  formula  for  each  of  the  entities  in  the  three  domains  of  interest  we  need 
to  introduce  an  assumption  that  serves  as  the  basis  for  all  geometric  displays  and  analyses 
undertaken  by  this  thesis,  mainly  that  X  the  random  vector  of  interest  is  distributed  multivariate 
normal  with  p  random  variables  and  covariance  matrix  1. 
that  is,  ^ 

It  then  follows  under  the  ttieoretical  domain  that 


p  =£(X) 
and 


(3) 


Z  =  £:[(X -p  )(X -p  n  (4) 

Methods  of  calculus  can  be  used  to  obtained  actual  values  for  p  and  I  when  a  specific  A^^(p ,  I)  is 
f^esumed.  Whenever  the  theoretical  covariance  matrix  of  the  sample  mean  veaor  X  is  required,  one 
merely  divictes  each  element  of  the  covariance  matrix  of  X  by  n  (the  sample  size). 

The  population  correlation  matrix  p  is  computed  by  setting  up  what  is  known  as  the  Standard 
Deviation  Matrix 


0 

0 

0 

0 

0  0.. 

and  executing  the  following  matrix  computation 


(5) 
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p  =  (D'^)-‘KD'^)-‘  (6) 

As  will  be  shown  later  in  Chapter  III,  these  theoretical  entities  can  be  used  to  generate  a  multivariate 
normal  deviate  vector  of  values  as  many  times  as  desired  to  simulate  a  random  sample  of  n  multivariate 
normal  deviates.  Via  eignvalues  analysis  (see  below)  the  theoretical  covariance  structure  rqiresented 
by  the  X  matrix  can  be  obtained  and  gr^^ied.  Chapter  IV  reviews  exactly  how  the  software  generated 
by  this  thesis  effoit  accomplishes  this. 

It  is  important  to  note  at  this  point  that  the  covariance  structure  which  is  captured  by  the 
covariance  matrix  and  which  is  associated  with  an  elliptical  display  to  be  discussed  directly,  is  the 
key  to  understanding  the  type,  depth,  and  strength  of  synergy  fostered  by  a  dependent  set  of  random 
variables. 

During  estimation  exercises  statistical  estimates  of  these  theoretical  entities  must  be  obtained. 
The  sample  mean  vector  is  easily  computed  as  follows: 


X  =  - 1  X  where  .Y  is  ap  x  n  data  matrix 
-  n-  ^ 


(7) 


The  sample  covariance  of  X  presumes  a  data  matrix  of  dimension  p  x  n  has  been  obtained  and 
is  computed  as  follows; 


5  =  -— X 
n-1 


/--(IF) 

n 


XF  where  x  is  a  p  x  n  matrix 


(8) 


The  sample  covariance  matrix  of  X  is  conpited  by  dividing  each  element  of  the  sample  covariance 
matrix  of  X  by  n. 

Obtaining  the  sample  correlation  matrix  requires  computation  of  thep  xp  inverse  of  the  sample 
standard  deviation  matrix 


1  0  0 

^  1  0 

0  ^  1 
0  0  >/r33 


foQowed  by  the  matrix  computation  of  /?  as  follows: 


(9) 


R^Dr'^SDr'^  (10) 

A  quick  review  of  Table  3. 1  will  indicate  that  the  only  remaining  entity  to  be  deflned  is  which 

is  simply  the  plausible  value  for  the  mean  vector  of  the  theoretical  multivariate  population  assumed 
to  be  operative  under  the  null  hypothesis  when  a  test  is  conducted  about  a  population  mean  vector. 
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3.3  Geometric  Evaluation  of  Multivariate  Normal  Populations 

Geometric  structures  displayed  by  the  software  developed  by  this  thesis  are  plotted  in  2-  and 
3-dimensional  vector  spaces  because  geometric  images  visually  and  rigorously  characterize  the 
extent  and  strength  of  relationships  between  a  set  of  multivariate  normally  distributed  random 
variables.  Since  the  rest  of  Chapter  ni  will  outline  the  use  and  value  of  such  images  this  section 
offers  abbreviated  mathematical  formulations  for  any  ellipsoid  of  p  dimensions.  Such  ellipsoids 
are  employed  to  create 

1.  An  image  of  the  theoretical  covariance  structures  associated  with  a  given  Npip  . £) 

population  (ref:  Theoretical/Population  Distribution  Displays) 

2.  An  image  of  the  empirically  derived  covariance  structures  associated  with  a  sample  from  an 
unknown  Np{\i  ,  £)  population  and  associated  confidence  region  for  estimating  the  un¬ 
known  mean  vector  [|i]  or  testing  the  plausibility  of  a  ^ven  mean  vector  I|io]  (ref:  empiri¬ 
cal/sample  estimation  displays  and  empirical/sample  testing  displays.) 

Contours  of  constant  density  of  the  p-dimensional  nonnal  distribution  are  ellipsoids  defined  by  the 
equation: 

(£  -jt  )'!-'(£  -t)  01) 

centered  at  jt  wifli  axes  ±  i^^e  Xj  is  the  ith  eignvalue  and  Cj  is  the  ith  ortho-normal  eignvector 

(one  of  p  orthogonal  vectors,  each  of  unit  length).  In  this  thesis  the  covariance  matrix  is  used  to  obtain 
eigenvalue/eigenvector  pairs. 

The  software  requests  the  user  enter  a  value  of  c.  To  obtain  the  desired  value  the  user  must  select 
an  a  value  to  obtain  a  percentile  that  can  then  be  used  in  the  following  equation: 

c  =  P  =  degrees  of  freedom  (12) 

If  this  c  value  is  entered  a  contour  is  plotted  that  contains  ( 1  -  a)  x  100%  of  the  probability  under  the 
relevant  multivariate  normal  density. 

When  inferences  about  a  mean  vector  are  in  order,  whether  for  purposes  of  estimation  or  testing, 
an  ellipsoid  representing  a  100  (1  -  a )%  confidence  region  can  be  generated  by  noting  that 

-a  (13) 

where  the  values  of  (land  £are  unknown.  Qearly, 

n(£  -^)'S-^(x  -y.)^*  (14) 

where 
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V£iZLlii.^ 

(n-n'i 


(a) 


(15) 


(/l-p) 

The  software  asks  for  a  c  value  and  will  generate  a  confidence  region  that  can  be  used  to  suggest  an 
upper  bound  on  the  range  of  the  true  population  vector  or  to  detennine  wiiether  or  not  the  presumed 
mean  vector  [(^],  employed  in  the  testing  scenario,  is  plausible  or  not 
For  a  fuller  presentation  of  the  mathematical  rationale  and  inferential  use  of  ellipsoids  in  various 
types  of  multivariate  data  analyses  the  reader  is  referred  to  the  Johnson  and  Wichern  text.  The 


remainder  of  Ch^ter  ni  and  IV  demonstrate  how  such  geometric  structures  can  be  employed  to 
create  a  meaningful  learning  environment  for  studying  covariance.  They  provide  examples  of  how 
visualizations  of  covariance  structure  can  stimulate  questions  about  the  synergy  produced  by  a  set 
of  dependent  normal  random  variables. 


3.3-1  Phase  3 — Software  Development.  Software  development  of  the  covari¬ 
ance  structure  display  system  involved  completing  two  distinct  activities.  First,  an  organized  and 
logically  nested  set  of  computer  algorithms  had  to  be  designed,  logically  evaluated  for  consistency 
and  completeness  and  nested  together  to  form  a  complete  programming  system  for  generating 
graphical  images  of  covariance  structures.  The  second  step  involved  coding,  debugging,  and  testing 
the  operational  competency  of  the  programming  system  to  facilitate  a  meaningful  learning  system 
under  the  aegis  of  the  VVAM  protocol. 

3.3-1. 1  Software  Development:  Activity  1— Algorithm  Development.  In  order  to 
complete  design  specifications  for  the  basic  algorithms  and  supporting  routines  of  the  program¬ 
ming  system,  a  complete  set  of  mathematical  formulae  had  to  be  rigorously  defined.  A  MathCAD 
3. 1  template  was  used  to  design  and  debug  algebraic  representations  for  all  formulas  that  would  be 
needed  to  compute  specific  covariance  statistics  and  graphs  of  related  covariance  structures  in  the 
final  coded  program.  (6  1991  Math  Soft  Inc.).  MathCAD  is  a  real-time  personal  computer-based 
program  for  creating  formulas,  numbers  and  graphics  as  well  as  text  for  documentation  and 
explanations.  MathCAD’s  unique  abilities  are  perfect  for  use  as  an  algorithm  development  tool.  It 
has  the  ability  to  display  formulas  in  the  same  exact  mathematical  representations  found  in 
mathematical  text  books  (see  Figure  3.2  on  the  following  page).  MathCAD  has  a  built-in  symbolic 
processor  which  can  be  used  to  solve  equations  and  calculate  derivatives  and  integrals.  It  also  can 
calculate  eigenvalues  and  eigenvectors,  which  are  two  of  the  most  vital  statistical  entities  used  by 
the  programming  system  produced  by  this  research  effort.  MathCAD,  itself,  possesses  graphics 
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Math  Book: 


capabilities  that  facilitated  graphical  algorithm  testing  by  producing  rough  sketches  of  gra{dis  that 
were  ultimately  generated  by  the  final  graphics  package.  MathCAD  proved  to  be  a  very  valuable 
debugging  tool.  A  copy  of  the  MathCAD  template  created  during  the  design  and  debugging  of 
systems  software  is  included  as  Appendix  H. 

3.3-12  Software  Development:  Activity  2— Coding  process.  The  coding  process  re¬ 
quired  three  sub-activities:  1)  selection  of  a  programming  language;  2)  defining  the  hardware  and 
operating  system  requirements  for  the  host  computer;  and  3)  outlining  the  system  flow  and  the 
actual  coding  of  the  program. 

The  programming  language  needed  to  generate  the  graphical  images  required  by  program 
specifications  had  to  possess  extensive  built-in  graphics  capabilities  as  well  as  the  ability  to 
expedite  mathematically  intense  programming  activities.  The  language  chosen  was  Turbo  PAS¬ 
CAL  6.0  (©1987, 1990  Borland  International  Inc.). 

Turbo  PASCAL  is  a  highly  structured  language  that  uses  and  links  units(sub-programs). 
functions,  and  procedures.  TUrbo  PASCAL  contains  a  built-in  gr{q>hics  unit  with  over  SO  grai^cs 
routines  and  supports  the  following  graphics  drivers:  CGA,  MCGA,  EGA,  VGA,  Hercules,  AT&T 
400  line,  3270  PC  and  IBM8514.  It  is  a  PC  based  language  with  an  excellent  editor  and  integrated 
development  environment  (IDE). 

To  enhance  PASCAL’S  already  extensive  graphics  routines,  die  3-D  graphics  library  Acromolft 
was  used.  Acromold  (version  1.0  O  1991  David  B  Parker)  contains  38  subroutines  that  support 
high  speed,  real-time  3-D  graphics.  This  package  facilitates  the  rotation  and  movement  of  grqdiics 
images. 

The  hardware  system  targeted  for  this  software  development  was  an  IBM  or  compatible 

3.9 


personnel  computer  with  a  hard  drive,  at  least  an  EGA  gr^hics  driver  and  running  DOS  2.0  or 
higher  operating  system. 

The  complete  listings  of  program  units  developed  for  this  effon  are  included  as  Appendices  B-F. 
The  overall  organization  of  the  program  units  is  shown  in  Figure  3.3. 


FIgun  3.3.  Program  Organization 


3.3-1. 3  System  Flow.  The  program  flow  can  be  divided  into  four  subsystems  (see 
Figure  3.4),  Subsystem  1:  Welcome  Display  and  Request  for  Inputs.  Subsystem  2:  Statistical 
Entities  Display  Subsystem  3:  Display  of  Images  of  Covariance  Structure  Subsystem  4:  Monitor¬ 
ing  and  Responding  to  Inputs. 


r- 

Introduction  and 
Student  Input* 

Statletical  Computations 

Olaplay  of  Images 

Monitor  and  React  to 
Student  Input* 

J 

w 

1 _ 1 

Flgura3.4.  Ovarvlaw of  Progrmn Flow 
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3.3-1. 3.1  Subsystem  1 — Request  for  Inputs.  The  introduction  and  student  input 
section  can  be  separated  into  three  areas  (see  Figure  3.S).  They  are: 


Flgun  3.S.  Introduction  and  Student  Inpu^ 


1 .  The  explanation  of  program  interfacing.  This  consists  of  the  initial  screen  which  explains  to 
the  student  how  to  interface  with  the  program  and  how  to  activate  some  of  the  special  functions 
(see  Figure  3.6  on  the  following  page).  This  is  accomplished  by  the  main  program  unit. 

2.  The  determination  of  the  area  of  study.  This  is  where  the  student  answers  two  separate 
questions  which  will  determine  the  type  of  problem  they  want  to  view.  The  first  (Figure  3.7,  page 
12)  allows  the  student  to  choose  between  the  bivariate  or  the  multivariate  normal  distribution.  This 
is  basically  a  choice  between  viewing  a  2-D  or  3-D  vector  space.  The  second  question  (Figure  3.8 
page  13)  gives  the  student  five  options  which  are  combinations  of  dealing  with  theoretical  or 
empirical  data  and  data  being  entered  via  keyboard  or  from  a  file  on  disk.  These  two  questions  give 
the  smdent  20  separate  options  to  chose  from.  This  is  accomplished  by  the  main  program  unit. 

3.  Inputting  of  required  data.  Depending  on  which  of  the  five  options  the  student  selects  they 
will  be  required  to  input  certain  values. 

a.  For  option  1,  the  strictly  theoretical  case  they  will  be  required  to  enter:  p  ,  the  c  value,  the 

sample  size  and  the  correlation  matrix  (see  Figure  3.9,  page  13). 

b.  For  option  2,  the  empirical  case  where  data  comes  from  a  file,  the  student  will  have  to  enter; 
the  c  values  and  the  sample  size  (see  Figure  3. 10,  page  14). 

c.  For  option  3,  the  empirical  case  where  data  is  inputted  via  the  keyboard  the  student  enters:  a 
c  value,  the  sample  size  and  the  sample  X  matrix  (see  Figure  3.11,  page  14). 

d.  For  option  4,  the  empirical  case  that  also  pafmins  a  test  of  the  mean  vector,  the  student  inputs 


the  same  values  as  for  option  2,  but  also  the  null  hypothesis  ^  they  want  to  test  (see  Figure 
3.12,  page  15). 

e.  The  final  option,  the  case  that  compares  theoretical  and  sample  data  and  performs  a  test  of  the 
mean  vector,  requires  input  concerning:  p  ,  £,  p,  po  (the  null),  the  c  value  and  sample  size. 

The  sample  data  itself  is  read  finm  a  file  on  disk  (see  Rgure  3. 13,  page  15). 

Do  you  with  to  dml  with  tht  BIvtrittt  of  MuMvoritto 
Normal  DIatrlbutlon  ? 

Input  2  for  BVN  (2-0  or  3  for  MVN  (3-D) 

FIgurt  3.7. 2-Dor  3-D 
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This  Is  ths  Csss  of  BIvsrists  NonnsI  Distribution: 

(1)  Thsorstlcal 

(2)  Empirical  (data  from  disk) 

(3)  Empirical  (data  from  keyboard) 

(4)  Test  of  Mean  (data  bom  disk) 

(5)  Comparlsirm  of  Thsorstlcal  and  Empirical 
(data  from  disk) 

FIgutsXS.  Thsotwdesl Empirical Chokss 

All  data  are  inputted  and  displayed  in  matrix  form  as  it  would  appear  in  a  mathematics  text  book. 
The  inputting  of  data  is  conducted  by  the  program  unit  Get_Data.  Once  the  student  has  inputted  all 
needed  values  the  next  phase,  statistical  computations  section,  of  the  fxogram  begins. 

3.3-1. 3.2  StaHstical  Entity  ComfHJtation  and [Xsplay.  The  statistical  computations 
section  is  divided  into  three  parts  (see  Figure  3.14,  page  16.). 

1 .  calculation  of  summary  and  statistical  values;  2.  calculation  of  eigenvalues  and  eigenvectors; 
and  3.  calculation  of  values  needed  to  generate  the  gr^hical  images. 

Calculation  of  summary  statistics  is  performed  by  die  units  Get_Data  and  MathMat  (matrix 
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Figure  3. 10.  Input  Screen  for  Case  2  Option  1 

aJgcbra  functions).  Depending  on  what  option  is  selected  by  the  student,  different  values  are 

5 

calculated.  These  values  include  calculations  of  x,  S,  R  and  if  theoretical  information  is  given 

-  n 

then  a  sample  of  random  deviates  from  the  defined  population  is  aeated.  These  summary  statistics 
are  displayed  on  the  input  saeen  for  the  student  to  study  prior  to  seeing  the  geometric  images.  As 
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FIgun  3. 14.  Statigthal  ComputadoM 


Get_Data.  Hie  Jac  procedure  is  based  on  the  Jacobi  algorithm  explained  in  the  book  Numerical 
Recipes  in  Pascal,  the  Art  of  Scientific  Computing  by  Flannery  Press,  et  al.  The  book  contains  a 
version  of  the  algorithm  written  in  PASCAL  which  this  writer  was  able  to  use  with  only  minor 
modiflcations  (Press,  1989:387-388).  It  was  critical  to  be  able  to  calculate  the  eigenvalues  and 
eigenvectors  internally  since  they  encapsulate  the  needed  information  concerning  statistical  dis¬ 
tances,  which  govern  the  appearance  of  the  geometric  images.  See  Appendix  G  for  further 
information  in  this  area.  The  eigenvalues  and  eigenvectors  are  used  to  determine  die  length  and 
endpoints  of  the  axis  of  the  geometric  images  (ellipses  if  2-D  and  Ellipsoids  if  3*D). 

Calculation  of  the  values  which  are  needed  in  order  to  produce  the  geometric  images  is 
conducted  in  the  Unit  Get.Data.  These  values,  as  stated  above,  include  determining  the  lengths  of 
the  axis  and  their  endpoints.  Other  values  include  determining  the  domains  of  the  relationships 
which  define  the  ellipses  displayed.  At  this  point  the  geometric  images  are  ready  to  be  created  and 
displayed. 

3.3-1.3.3  Display  of  Covariance  Structures.  Once  statistical  computations  are 
completed,  the  program  begins  the  display  i^iase.  The  display  i^iase  of  the  program  is  subdivided 
into  four  sections  (see  Figure  3. 15  on  the  following  page). 

1.  setup  of  the  major  and  minor  axis  of  the  ellipse  or  ellipsoid; 

2.  calculation  of  the  individual  points  of  the  images; 

3.  setup  of  the  screen  layout  and; 

4.  the  actual  display. 

Setup  of  axis  and  coordinate  system  is  perfumed  by  the  procedure  GenerateAxis  in  the  main 
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Figure  3.  IS.  Ditplay  of  Images 


program  unit.  This  procedure  creates  the  major  and  minor  axis  of  the  ellipses  and  the  Xi,  xj.  and,  if 
3-D,  the  Xi  coordinate  axis.  This  requires  transforming,  in  some  cases,  3-D  information  into  a 
format  which  can  be  displayed  on  a  2-D  computer  screen  without  the  loss  of  information.  The 
transformations  from  3-D  images  to  the  2-D  computer  saeen  are  completed  with  the  aide  of  the 
Aaomold  routines. 

Creation  of  the  geometric  images  consists  of  creating  the  points  which  will  be  displayed.  The 
2-D  and  3-D  images  are  based  on  ellipses  whose  relationships  are  captured  in  the  procedures 
contained  in  the  program  unit  MathStuf.  There  is  no  ellipse  function  in  PASCAL  which  can  be 
used  in  conjunction  with  Acromole.  Therefore,  the  ellipses  are  created  by  plotting  a  large  number 
of  points  based  on  the  domain  and  characteristics  of  the  ellipse  as  determined  by  the  summary 
statistics  and  the  eigenvalues  and  eigenvectors.  The  ellipsoids  are  characterized  by  three  ellipses. 
There  is  one  ellipse  in  each  plane  of  the  vector  space.  These  planes  are  the 
X) ,  vs.  X2,  the  X3  and  the  xj  vs.  X3.  If  the  case  being  studied  contains  a  test  of  the  mean  vector  then  a 
point  is  plotted  at  the  location  of  the  null  hypotheses. 

Setup  of  the  saeen  is  conducted  in  die  main  program.  This  consists  of  dividing  the  screen  into 
four  sections.  One  section  contains  the  summary  statistics  required  by  the  student  to  construa  new 
knowledge.  The  otha  three  section  are  reserved  for  different  images.  Each  of  the  display  screens 
are  labeled  as  to  what  they  contain. 

Display  of  the  images  is  performed  by  the  main  unit  and  a  modified  Aaomolg  unit  called  Utility. 
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The  images  are  displayed  so  that  the  centroid  of  the  ellipse  in  each  screen  is  the  center  of  rotation. 
When  two  or  more  ellipses  are  put  in  the  same  screen  they  are  displayed  in  different  colors  for 
clarity. 


3. 3- 1.3.4  Monitoring  of  Inputs.  The  final  phase  of  the  program  is  the  monitoring  and 
reacting  phase.  This  is  were  further  ii^juts  from  the  student  are  read  and  the  ^propriate  action  is 
taken. 

This  phase  of  the  program  is  a  continual  monitoring  function  with  two  major  paths  of  action  (see 
Rgure  3.16). 


Figure  3. 16.  Monitoring  and  Updating 


1 .  manipulation  of  current  images  and  saeens  and 

2.  resetting  and  restarting  of  the  program. 

The  monitoring  consists  of  periodically  checking  the  input  buffer  for  student  inputs.  This  is 
accomplished  by  the  unit  Utility.  The  student  has  several  options  available  in  regards  to  the  images. 
All  images  have  6  degrees  freedom  of  rotation.  Rotation  of  the  images  is  controlled  by  the  arrow 
keys  and  the  page-up  page-down  keys.  The  images  can  also  be  move  toward  and  away  from  the 
student  by  use  the  minus  or  plus  keys  respectively.  If  the  student  wants  to  focus  their  attention  on 
one  of  the  three  image  screens  they  can  press  the  function  key  corresponding  to  that  screen  (e.g., 
if  the  student  wants  to  focus  on  saeen  2  they  press  <F2>).  That  screen  will  then  be  enlarged  to  fill 
the  entire  computer  screen  (see  Figure  3.17  on  the  following  page).  Pressing  the  <ESC>  key  will 
return  the  student  to  the  multiscreen  display. 

The  other  possibilities  for  the  student  are  to  restart  or  end  the  program.  Pressing  the  <CNTRL> 
and  <BREAK>  keys  simultaneously  will  end  the  program.  Pressing  the  <F9>  key  will  signal  the 
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Figure  3. 1 7.  Sample  Screen  Focu$  on  Screen  3 


computer  that  the  student  v.anis  to  view  another  case.  In  tins  case  uhe  con'iputer  rescLs  all  p^uniers 
and  clears  die  screen  and  restarts  the  program.  Tlie  introductorv-  screen  is  not  shown  when  a  restai 
occurs, 

3.3-2  Scenario  Selection.  The  scenanos  selected  to  test  the  programs  ability  to  facili¬ 
tate  a  meamnglul  learning  experience  represent  ('nly  a  lew  of  tlie  total  psissible  scenaios  which 
can  be  examined  with  this  program.  Tfie  cases  which  were  selected  were  then  di'.  idc-d  into  4  or  5 
(ipuons.  Ttiese  opiums  demonstrate  a  cross-section  of  the  p>.issible  statistical  variations  which  can 
occur  within  the  case.  Table  3.2  on  die  following  page  stiows  all  die  psissible  scenarios,  die 
scenaru's  selected  for  this  research  and  the  options  examined  within  those  scenarios.  What  should 
be  kept  in  mmd  when  reviewing  das  table  i.--  that  the  study  of  covaaance  involves  die  segregation 
of  the  total  or  generaiieed  variance  t)f  die  distnbulion  into  its  parts.  Tlie  general  vanance  can  be 
secrecated  into  each  vanables  covariance  with  itself,  also  know  as  its  variance,  and  into  each  of 
the  variables  parwise  covariances.  The  options  within  the  cases  were  chosen  to  dem.onstrate  die 
effect  that  each  of  these  covariances  has  on  the  total  variance  and  on  die  geometric  images  tellipses 
and  ellipsoids)  displayed. 

When  studying  die  tables  describing  the  scenarios  and  options,  keep  in  mind  the  following 
conventions  which  were  used  as  to  detcrnune  what  constitutes  “low.”  “medium"  and  "high” 
coneladon.  When  a  correlation  is  set  at  a  "low”  value,  this  is  a  value  between  O.t)  and  U.4.  ,A 
“medium”  value  is  one  between  U.4  and  0.6.  A  “high”  value  is  one  between  0.6  and  0.9.  \'alues 
greater  than  0.9  but  less  then  1.0  are  considered  “very  high." 


TABLE  3^  PoMsible  ScenarioB 


Empirical 

SVN 

MVN 

BVN 

MVN 

XI  «  JO 


jfl  «  JO 


IV  A  I  xi  =  je 

B  I  xi  =  Jo 
C  I  XI  =  X2 


Theoretical  and 
Empirical 


BVN  MVN 


s?<^^ 


s?«^ 


s?«^ 


s?«^ 


/?=High 


Rs  Medium 


fl=  Light 
Positive 


Rx  High 
Negative 


fl=  Medium 
Postive 


R=  High 
Positive 


1 

jj2 

II 

Q. 

cr?  =  c!§  =  ot§ 

P12  =  P13  =  P23  =  0 

o?  =  o|  =  o5 

p12  =  P13  =  P23  = 

Low 

c^  =  cj|  =  a5 

P12  =  P13  =  P23  = 

High 

0^  =  of  =  o5 

P12  P13  5*  P23 

0^  >  >  o3 

P12  =  P13  =  P23  = 

High 

0?  >  of  >  o§ 

P12  *  P13  *  P23 

of  >  of  >  o5 

pt2  5^P13^P23 

X 

Xl  ■  X2  -  X3 

s?-^-s5 

X1  <  X2  <  X3 

s?  <  sf «  sS 

Xl  <  X2  <  X3 

s?<sf<s§ 

Xi  ■  X2  «  X3 

s?<si<s5 

High 


R^2*R 

Values 


R^^*R 

Values 
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R^2  =  High  Negative 
fli3  =  Low  Positive 
/?23  =  High  Positive 


When  a  case  calls  for  a  test  of  the  mean  vector  that  test  takes  the  following  form: 

Null  hypotheses:  It  =  Mo  (where  the  student  enters  Mo) 

The  confidence  region  is  defined  by  the  c  value  which  is  related  to  the  F  statistic  (see  Section 
3.2).  The  null  hypothesis  is  not  rejected  if  the  point  representing  the  mean  vector  is  within  the 
confidence  region  and  rejected  if  it  is  outside  the  confidence  region.  This  is  a  simple  but  powerful 
visual  test  The  test  of  the  mean  vector  will  always  be  conducted  with  the  normal  distribution 

5 

(bivariate  or  trivariate)  characterized  by  5  and  -  (sample  data). 

It 

Case  1  deals  with  the  Bivariate  normal  distribution  and  deals  only  with  theoretical  data.  The 
options  for  case  1  are  outlined  in  Table  3.3. 


TABLE  3.3.  Case  1 0ptions 


0^ 

P 

1 

a?  =  o5 

p  =  0 

■ 

D 

a?  <  oi 

p  =  Low 

1  e  j 

o?  =  o| 

p  =  High 

■ 

El 

o?>  o§ 

p  =  Constant 

1  S  : 

of 

p  =  Constant 

IV 

D 

of  >o| 

p  <  0 

of  >oi 

p  >  0 

V 

of  >o| 

Option  1:  The  total  variance  is  the  sum  of  the  variances.  Option  1  investigates  the  situation 
where  the  covariance  of  each  pair  of  variables  is  0  and  the  variable  means  and  variances  are  equal. 
This  means  that  knowing  the  value  of  X2  yields  no  information  concerning  the  value  of  X2.  This 
option  is  geometrically  pictured  as  a  perfea  circle. 

Option  2:  Compares  the  differences  between  a  case  of  low  covariance  verses  a  case  of  high 
covariance.  The  means  and  variances  are  equal  in  each  case  so  that  they  have  no  effect  on  the 
comparison. 

Option  3:  Compares  two  runs.  The  first  run  has  oi  and  the  means  and  covariances  equal.  The 
second  run  has  oj  =  o^.  This  option  is  intended  to  show  how  differences  in  variances  effect  the  size 
and  shape  of  the  geometric  picture.  It  also  initiates  the  students  understanding  of  the  intetrelation* 
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ship  between  variance  and  covariance.  The  student  should  notice  the  elongation  of  the  ellipse  in 
the  direction  of  the  variable  with  the  larger  variance.  Option  4  stresses  how  covariance  effects  the 
orientation  of  the  ellipse  by  comparing  runs  where  the  variance  remains  constant  but  the  covariance 
changes  sign.  The  student  should  notice  a  90  degree  shift  in  orientation. 

Option  4  This  case  demonstrates  what  occurs  when  the  two  variables  are  perfectly  linearly 
dependent  In  this  option  the  covariance  is  equal  to  -1  and  the  ellipse  collapses  into  a  line. 

Case  2  is  the  case  of  the  multivariate  normal  distribution  where  theoretical  and  empirical  (from 
disk)  data  are  both  displayed  and  a  test  of  the  mean  vector  is  conducted.  The  options  for  this  case 
are  the  same  as  for  case  1  (see  Table  3.4).  What  is  added  is  that  the  geometric  images  are  now  in 

TABLE  3.4.  Cmte  2  Optiont 


3-D,  A  circle  becomes  a  sphere  and  an  ellipse  becomes  an  ellipsoid.  The  student  is  also  introduced 
to  the  expanded  concept  of  covariance  which  deals  not  only  with  a  relationship  between  two 
variable  but  of  all  the  interrelationships  between  variable  pairs.  He  is  also  shown  the  differences 
in  images  produced  from  information  about  the  population  and  from  sample  data.  The  test  of  the 
mean  demonstrates  how  easy  it  is  to  determine  if  a  null  hypothesis  should  be  rejected  or  not  The 
student  needs  only  to  determine  if  po  is  cont^ned  within  the  confidence  ellipsoid  created  from 

sample  data. 

Case  3  is  the  bivariate  normal  distribution  case  where  empirical  data  is  entered  from  the 
keyboard.  This  case  allows  the  student  to  experiment  with  different  samples.  The  four  options  used 
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for  this  case  represent  four  possible  situations  which  could  arise  from  different  samples  (see  Table 
3.5). 


TABLE  3£.  CM*  3  OpUont 


X 

ilill 

mm 

jri  =  jfe 

A  =  High 

in 

jfi «% 

Rs  Medium 

xi  «3e 

s?-sg 

/?s  Light  Positive 

□ 

jfi  =  « 

Rs  High  Negative 

B 

jfi  =  3c 

s?«  ^ 

Rs  Medium  Positive 

C 

]fi=3e 

s? «  ^ 

Rs  High  Positive 

Option  1 :  This  option  is  a  situation  where  there  is  extreme  collinearity.  The  student  can  see  how 
the  ellipse  begins  to  collapse  into  a  line.  They  also  can  observe  how  the  slope  of  the  line  is  related 
to  the  variance  and  covariance  (which  is  capmred  by  the  eigenvalues  and  eigenvectors). 

Option  2:  The  second  option  involves  the  use  of  a  sample  where  the  means  are  very  different 
and  so  are  the  variances.  The  student  can  see  how  this  effects  the  shape  of  the  images  and  seems 
to  have  effects  related  to  those  from  different  covariances. 

Option  3:  The  third  option  is  similar  to  the  second  except  that  in  this  case  the  variances  are 
approximately  equal.  Therefore,  any  differences  in  the  shape  of  the  ellipse  is  do  to  the  different 
means  and  that  even  though  the  variances  are  equal  they  are  not  equally  proportional  to  their 
respective  mean. 

Option  4:  The  last  option  demonstrates  the  differences  between  three  runs  where  the  means  are 
equal,  the  variance  of  one  variable  is  much  greater  than  the  other  and  three  different  covariances 
are  used.  This  option  shows  the  user  how  covariance  and  variance  interact. 

The  final  case.  Case  4,  is  the  Multivariate  normal  distribution,  where  empirical  data  is  entered 
from  the  keyboard.  The  only  differences  between  this  case  and  the  previous  one  is  that  the  images 
are  3-D  and  there  are  no  images  based  on  the  theoretical  population  displayed.  The  options  within 
this  case  are  shown  in  Table  3.6  on  the  following  page. 

3.3*3  Criteris.  Once  the  program  was  developed  and  the  scenarios  chosen  and  run,  there 
needed  to  be  a  way  to  determine  if  the  learning  system  was  effective  and  if  a  positive  answer  could 
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TABLE  3.6.  Cm  4  Qptfom 


■ 

R 

n 

xi  ■  %  ■  X3 

fli2  =  fli3  =  /fe  *  Very  High 

□ 

Xl  <  JQ  <  X3 

s?  <  ^  ^ 

R^2  *  Medium  Values 

□ 

xi  <  ie  <  X3 

Ai2  *  R\3*  fki-  High  Values 

IV 

X1  -  ■  X3 

Wi2  =  High  Negative 
fli3  =  Low  Positive 
/fe  =  High  Positive 

be  suggested  to  the  investigative  question  posed  by  this  thesis.  The  only  meaningful  criteria  was 
to  determine  if  the  learning  system  fostered  die  creation  of  new  knowledge  in  the  area  of 
covariance.  In  other  words,  did  the  computer  program  display  the  ^ropriate  statistical  values  and 
geometric  images  which  when  used  in  a  WAM  governed  environment  would  stimulate  the  student 
to  ask  significant  and  relevant  questions  about  the  subject  and  then  supply  enough  information  to 
answer  those  questions.  If  the  answer  is  yes,  then  the  student  was  able  to  link  the  knowledge  they 
brought  to  the  learning  experience  with  new  knowledge  they  constructed  through  this  question/an¬ 
swer  cycle.  The  question/answer  cycle  should  continue  until  the  subject  is  exhausted  because,  as 
the  student  aeates  new  knowledge  it  will  allow  them  to  ask  new  questions  and  get  new  answers 
(create  new  knowledge).  It  should  be  possible  for  this  cycle  to  repeat  indefinitely. 
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IV.  Findings  and  Analysis 


4. 1 1ntroduction 

Once  the  program  itself  was  completed,  tested  and  debugged  it  was  then  tun  using  the  cases 
delineated  in  Chapter  3.  This  was  done  to  determine  if  it  frovided  the  necessary  information  to  the 
student  to  stimulate  meaningful  and  relevant  questions  and  supply  sufficient  information  to  answer 
those  questions  thereby  encouraging  die  creation  of  new  knowledge  in  the  area  of  covariance.  The 
cases  used  are  shown  in  Table  3.2  (see  page  3.20)  and  summarized  in  Table  4.1 


TABLE  4.1  Sumrmy  of  Run 


easel 

Case2 

Cases 

Case4 

Bivariate  Normal 

Multivariate  Normal 

Bivariate  Normal 

Multivariate  Normal 

BVN 

MVN 

BVN 

MVN 

Theoretical 

Theoretical/ErTpirical 

Data  generated  from 
corrputer 

Errpirical  Data  manually 
entered 

EtTpirical  Data  from  disk 

Theoretical  means  that  geometric  images  di^layed  to  represent  the  population,  either  BVN  or 
MVN,  were  created  using  the  populations  characterizing  parameters  (p  and  £).  When  a  case  states 

that  it  contains  empirical  data  it  means  that  the  geometric  images  used  to  represent  the  population 
from  which  the  sample  (empirical)  data  were  taken  are  based  on  the  estimators  of  the  characterizing 
parameters  Cc  and  5)  of  that  population.  Empirical  data  is  supplied  to  the  computer  in  one  of  three 
manners.  First  it  could  be  generated  by  the  computer  from  the  pqniladon  parameters.  How  this  is 
done  is  explained  in  Appendix  G.  The  second  way  emi^rical  data  can  be  supplied  to  the  computer 
is  by  the  student  or  the  teacher  saving  it  in  a  file  called  EMPDATA.DAT  in  the  same  directory  as 
the  program.  The  final  method  of  supplying  empirical  data  to  the  conqniter  is  by  tyjidng  it  in  via 
the  keyboard  while  running  the  program. 

There  were  several  reasons  why  these  four  cases  were  chosen  out  of  the  24  possible  cases.  First 
of  all  the  time  frame  available  for  this  research  was  prohibitive  not  allowing  all  cases  to  be  run. 
The  cases  chosen  were  done  so  because  they  not  only  cover  most  of  the  computer  programs 
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capabilities,  but  they  also  cover  nearly  all  the  significant  concepts  of  covariance  which  the  student 
is  expected  to  be  able  to  create.  The  full  collection  of  screen  captures  (both  iiq)uts  and  outputs) 
from  the  running  of  all  four  cases  and  their  associated  options  is  included  as  Appendix  A.  When 
the  selected  cases  were  run  valuable  information  was  gathered  which  suggested  a  positive  answer 
to  the  research’s  investigative  question. 

4.2  Study  of  Case  1 

The  first  case  run  was  the  case  involving  the  Bivariate  normal  distribution  and  containing  only 
theoretical  data.  Table  3.4  (see  page  3.22)  contains  the  details  on  the  five  options  associated  with 
this  case.  The  output  for  Case  1  Option  1  is  shown  in  Rgure  A.2  (see  page  A.2).  The  screen  is 
divided  into  four  subsections.  The  top  left  section  (not  labeled  in  the  ouq>ut)  contains  statistical 
values  such  as  the  mean  vector,  the  variance/covariance  matrix,  the  eigenvalues,  eigenvectors  and 
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the  —  matrix  and  its  associated  eigenvalues  and  eigenvectors.  The  top  right  section  Qabeled  screen 

1)  contains  an  image  of  the  contours  representing  the  normal  distribution  with  the  parameters  p  aixl 
£ 

— .  The  major  and  minor  axis  shown  with  this  image  are  those  for  the  distribution  characterized  by 

the  parameters  p  and  I.  This  is  done  to  give  scale  to  the  image  so  it  can  be  compared  with  the  image 
in  the  bottom  left  section.  This  section  Qabeled  saeen  2)  contains  the  contours  of  the  density 
function  characterized  by  the  parameters  p  and  £.  The  final  section  of  the  screen  Qabeled  screen 

3)  is  left  blank  for  this  case.  This  section  of  the  screen  is  used  in  the  other  cases  to  display  the  test 
of  the  mean  vector. 

What  the  student  observes  from  this  first  option  is  that  the  ellipses  in  both  image  sections  of  the 
screen  are  in  faa  perfect  circles  and  the  angles  of  rotation  of  these  circles  are  both  0.0  degrees.  He 
can  also  see  that  the  major  and  minor  axis  of  the  image  in  screen  1  is  scaled  by  the  faaor  n  from 
those  in  screen  2.  It  can  be  seen  that  in  this  option  knowing  one  of  the  variables  values  yields  no 
infcMination  about  the  other.  At  this  point  the  student  has  successfully  created  knowledge  on  what 
it  means  for  two  variables  to  be  independent  In  other  words,  he  has  synthesized  knowledge  from 
a  single  special  case.  This  information  supports  the  second  hypothesis  that  computer  generated 
graphical  images  embedded  in  appropriately  pictorialized  vector  spaces  can  be  employed  to 
enhance  the  identification  and  understanding  of  critical  statistical  features  traditionally  used  to 
characterize  the  covariance  structure  of  bivariate  normal  populations.  It  also  pn-ovides  support  for 
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the  third  hypothesis  that  the  WAM  protocol  can  enable  a  student  to  gain  a  profound  and 
experimentally  based  mastery  of  the  concepts  of  covariance. 

The  second  option  is  divided  into  two  separate  runs  for  die  student  to  compare  and  contrast.  The 
output  for  part  A  of  this  option  is  Figure  A.4  (see  page  A.2)  and  the  output  for  part  B  is  Figure  A.6 
(see  page  A.3).  When  the  student  examines  these  two  parts  diey  see  ttiat  in  part  A,  where  the 
covariance  is  low,  that  the  ellipses  are  slightly  elongated  and  there  is  an  equal  angle  of  rotation  for 
the  images  in  both  screen  1  and  saeen  2.  In  part  B.  where  die  covariance  is  high,  the  ellipses  are 
much  more  elongated  but  the  angle  of  rotation  is  the  same  as  in  part  A.  The  student  learns  that  the 
covariance  is  responsible  for  the  shape  of  the  ellipse.  They  also  are  stimulated  to  ask  why  there  is 
now  an  angle  and,  since  it  remains  constant  when  the  covariance  changes,  what  controls  it.  This  is 
an  example  of  experimental  based  learning.  This  supports  the  first  research  hypothesis  that  the 
WAM  can  be  used  to  orchestrate  a  experiment-based  environment  The  next  option  is  in  response 
to  those  unanswered  questions. 

The  third  option  is  also  divided  into  two  parts.  In  both  these  parts  the  covariance  remains 
constant  at  a  high  value  while  the  variances  of  each  variable  are  swapped  from  one  pan  to  the  other. 
The  output  for  pan  A  is  Figure  A.8  (see  page  A.4)  and  the  ouqiut  for  part  B  is  Figure  A.  10  (see 
page  A.S).  When  the  student  compares  these  two  outputs  he  sees  that  the  ellipses  are  all  elongated 
as  they  could  have  predicted  from  what  they  learned  from  the  last  optioa  They  also  see  that  the 
angles  of  rotation  for  the  ellipses  are  not  the  same  for  both  parts.  Since  the  only  difference  between 
these  runs  is  that  the  variance  changes,  the  student  can  determine  that  it  is  the  variances  which 
control  the  angle  of  rotation  of  each  ellipse.  Again  the  student  has  created  new  knowledge  from  a 
self-discovery  learning  environment. 

Using  the  information  from  options  two  and  three,  the  student  has  synthesized  knowledge  from 
information  gained  within  a  case.  This  demonstrates  that  the  [vogram  has  been  able  to  stimulate 
meaningful  learning  on  a  second  level.  The  first  being  from  a  single  special  case  as  was  demon¬ 
strated  with  option  one. 

In  option  4,  the  student  is  also  guided  through  a  comparison  of  two  runs.  In  both  parts  the 
relationship  between  the  variances  is  the  same  while  the  covariance  is  high  and  negative  for  part 
A  (Figure  A.12,  page  A.6)  and  is  low  and  positive  for  part  B  (Figure  A.14,  page  A.7).  From 
observing  the  output  of  part  A,  the  student  can  determine  that  the  negative  covariance  causes  the 
slope  of  the  major  axis  to  be  negative.  This  is  confirmed  when  he  views  the  output  from  part  B  and 
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sees  that  the  slope  is  again  positive  which  corresponds  to  the  covariance.  In  both  outputs  the  ellipses 
are  elongated  as  would  be  expected,  now  that  die  student  knows  diat  Qiis  is  caused  by  the  presence 
of  a  non-zero  covariance.  There  is  also  consistency  in  their  observations  because  the  greater 
elongation  occurs  in  part  A.  where  the  convariance  is  higher. 

In  the  final  option  of  this  case,  the  user  is  shown  the  effect  on  the  images  when  the  covariance 
is  both  negative  and  equal  to  1.  They  can  hypothesize  that  the  slope  of  the  major  axis  will  be 
negative  from  what  they  learned  from  the  last  option.  What  they  also  now  see  is  that  die  ellipses 
are  no  longer  ellipses  but  have  degenerated  into  lines.  The  student  can  determine  that  this  is  the 
reverse  of  option  1  when  covariance  was  zero.  Now  only  one  variable  needs  to  be  known  in  order 
to  find  a  point  from  the  distribution.  In  this  case  of  perfect  (negative)  covariance,  one  variable  is 
perfectly  predictable  from  the  other.  Again  the  student  has  synthesized  knowledge  from  two  levels, 
both  a  single  special  option,  perfect  covariance,  and  from  the  comparison  of  two  options  within  a 
single  case,  no  versus  perfect  covariance. 

With  the  knowledge  the  student  has  created  from  this  first  case,  he  can  view  the  second  case 
with  certain  hypotheses  going  in.  He  is  in  fact  aeating  an  experiment  by  which  he  can  test  those 
hypotheses.  This  is  exacdy  the  type  of  behavior  which  the  three  research  hypotheses  suggest  would 
occur  if  a  graphics  oriented  program,  like  the  one  developed  here,  is  used  within  the  VVAM 
protocol.  This  is  strong  support  for  the  investigative  question. 

4.3  Study  of  Case  2 

Case  2  involves  the  Multivariate  normal  distribution  where  geometric  images  for  both  theoreti¬ 
cal  and  empirical  data  are  displayed.  This  case  also  contains  a  test  of  the  mean  vector  for  each  of 
the  options  which  appears  in  screen  3.  See  chapter  III  for  a  review  of  the  testing  procedure.  Table 
3.4,  see  page  3.22,  contains  all  the  options  which  make  up  this  case.  Since  the  options  will  result 
in  displays  of  both  the  theoretical  and  empirical  distributions  the  student  will  be  able  to  readily 
compare  and  contrast  them. 

The  frrst  option  is  the  special  case  on  independence  as  was  seen  in  the  first  option  of  Case  1 . 
The  student  is  able  to  recognize  that  the  pairwise  covariances  are  all  zero  and  from  this  he  can  then 
hypothesize  that  the  images  representing  the  distribution  in  any  of  the  planes  defined  by  two  of  the 
three  variables  would  be  a  circle.  Therefore,  the  image  representing  the  MVN,  all  three  variables 
simultaneously,  would  be  a  sphere.  The  output  for  option  one  is  Figure  A.9  (see  page  A.S).  It 
becomes  readily  apparent  that  the  users  hypothesis  is  correct,  that  the  theoretical  images  are  indeed 
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spheres.  However,  he  quickly  realizes  that  the  images  for  empirical  data  are  not  spheres  but 
ellipsoids.  Using  what  was  learned  from  the  first  case,  he  can  see  that  this  is  not  totally  unexpected 
since  the  data  on  the  input  screen  of  this  option  (Figure  A.  17,  page  A.9)  shows  that  the  pairwise 
covariances  for  the  sample  data  are  not  equal  to  zero.  What  the  student  learns  from  this  is  that 
sample  data  from  a  population  may  not  have  the  same  exact  characteristics  as  the  population.  This 
is  the  first  step  in  understanding  the  idea  of  estimators,  a  vital  concept  in  statistics.  Screen  3  contains 
the  test  of  the  mean  vector.  If  the  student  focuses  his  attention  on  this  screen  (Figure  A.21,  page 
A.l  1)  he  can  see  that  the  point  re{X'esenting  the  mean  vector  is  within  the  region  defined  by  the 
ellipsoid  and  therefore,  the  null  hypothesis  Is  not  rejected.  From  this  single  option  the  student  is 
able  to  learn  in  an  experimentally  based  manner  that: 

a)  the  only  difference  between  the  bivariate  normal  distribution  (BVD)  and  the  multivariate 
normal  distribution  (MVN)  is  that  the  B  VN  is  represented  by  the  geometric  image  of  a  ellipse 
(or  circle)  and  the  MVN  is  represented  by  an  ellipsoid  (or  sphere): 

b)  that  the  parameters  calculated  from  a  sample  are  only  estimators  of  the  parameters  repre¬ 
senting  the  population  that  the  sample  is  derived  from;  and 

c)  that  a  test  of  the  mean  vector  is  simply  a  matter  of  determining  if  the  mean  vector  purposed 
as  the  null  hypothesis  is  contained  within  a  specified  confidence  region. 

These  results  are  even  more  support  for  the  hypothesis  that  this  type  of  computer  program  when  used 
with  the  VVAM  protocol  is  a  self  discovery  based  learning  environment  which  will  foster  the  creation 
of  new  knowledge  in  the  area  of  covariance. 

The  second  option  is  divided  into  three  parts.  All  the  parts  use  the  same  variances  for  each 
variable.  The  first  part  (part  A)  uses  the  same  low  value  for  each  pairwise  covariance.  Part  B  uses 
the  same  high  value  for  each  pairwise  covariance.  The  final  part  uses  a  different  high  value  for  each 
of  the  pairwise  covariances.  This  option  parallels  option  2  for  Case  1.  The  output  for  part  A  is 
Figure  A.23  (see  page  A.  12).  The  ou^iut  for  part  B  is  Figure  A.27  (see  page  A.14)  and  the  output 
for  part  C  is  Figure  A.3 1  (see  page  A.  1 6).  The  student  hypothesizes  correctly  that  the  images  from 
the  theoretical  data  will  difrer  from  those  of  the  empirical  data.  The  student  also  can  observe  that 
the  elongation  of  the  ellipsoids  is  greater  in  part  B  then  in  part  A,  where  the  pairwise  covariances 
are  greater.  This  is  consistent  with  what  was  learned  in  the  first  Case.  The  student  can  see  that  in 
all  three  parts  the  test  of  the  mean  vector  results  in  the  rejection  of  the  null  hypothesis  (see  Figure 
A.25,  page  A.  13,  Figure  A.29,  page  A.  15,  and  Figure  A.32,  page  A.  16,  respectively  for  the 
individual  tests).  This  option  gives  the  user  an  opportunity  to  reaffirm  what  they  have  discovered 
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in  the  other  t^tions.  This  reaffirmation  strengthens  the  students  understanding  by  acting  as  positive 
feedback.  For  each  assertion  he  makes  the  student  can  see  that  it  is  true.  This  gives  him  confidence 
that  the  new  knowledge  he  has  constructed  is  valid.  The  validation  of  assertions  is  an  important 
component  in  experimental-based  learning.  The  fact  that  this  process  is  available  to  the  learner 
strongly  inches  that  indeed  a  experimentally-based  learning  environment  has  been  constructed. 

With  renewed  confidence  in  what  they  have  already  learned  the  student  can  progress  to  option 
3.  In  this  option  the  pairwise  covariances  are  all  set  to  the  same  high  value.  However,  for  this  option 
the  variances,  each  variables  covariance  with  itself,  are  set  at  inaeasing  values  (i.e.  o}  >  oj  >  O3). 
What  the  student  can  see  from  this  option  is  how  each  pair  of  variables  interact  with  each  other  and 
how  all  of  tiiese  interactions  form  the  ellipsoids  of  the  distributions  they  are  representing,  llie 
output  for  this  option  appears  in  Figure  A.36  (see  page  A.  18).  This  particular  figure  is  a  closeup 
on  screen  3.  What  the  user  will  first  notice  is  that  the  mean  vector  representing  the  null  is  not  within 
the  region  defined  by  the  ellipsoid  and  therefore,  the  null  hypothesis  is  rejected.  He  will  also  see, 
and  most  likely  have  fx'edicted,  that  the  ellipses  for  each  pairwise  interrelationship  are  at  various 
angles  to  each  other  and  to  those  displayed  in  the  previous  option.  Looking  at  these  more  complex 
intenelationships  leads  him  to  ask  about  what  happens  when  none  of  the  values,  variances  or 
covariances,  are  kept  constant.  This  question  can  be  answered  with  option  4. 

Option  4  contains  two  parts.  Each  of  these  parts  contains  a  run  where  the  variances  are  not  equal 
and  the  pairwise  covariances  are  also  not  equal  (either  in  sign  or  magnitude).  Ihe  output  for  part 
A  of  this  option  is  Figure  A.  19  (see  page  A.  10)  and  part  B  is  Figure  A.41  (see  page  A.21).  By 
viewing  these  two  options  the  student  is  able  to  start  generalizing  what  they  have  seen  and  learned. 
This  is  an  important  step  in  the  VVAM  protocol  because  it  represents  the  movement  into  the 
algorithmization  phase.  This  is  solid  evidence  that  the  investigative  question  is  being  positively 
answered.  It  shows  that  the  WAM  protocol  and  the  computer  program  are  working  together  to 
foster  meaningful  learning  of  this  complex  subject  area.  Figure  A.  39  (see  page  A.20)  shows  screen 
3  from  part  A.  The  student  can  see  that  the  null  hypothesis  is  supported  because  the  mean  vector 
is  within  the  region  defined  by  the  confidence  region.  On  the  other  hand.  Figure  A.42  (see  page 
A.2 1 )  shows  that  the  null  is  rejected  since  the  mean  veaor  is  outside  the  confidence  region.  Another 
lesson  the  student  will  learn  from  this  option  is  that  they  must  be  careful  when  conducting  the  test 
of  the  meaa  They  must  remember  that  they  are  in  three  space  and  that  the  image  must  be  looked 
at  from  several  different  angles  to  insure  that  the  mean  vector  is  outside  the  confidence  region.  In 

4.6 


Figure  A.41  (see  page  A.21)  the  student  may  look  at  sCTeen  3  and  assume  that  the  null  is  true  but 
when  he  rotates  the  image  as  is  done  in  Figure  A.42  (see  page  A.2 1)  he  can  see  that  the  mean  vector 
was  actually  far  behind  the  eliipsoid.  This  demonstrates  the  power  of  using  computer  gr^^hics  to 
display  geometric  images.  If  the  student  saw  the  unrotated  image  on  a  blackboard  he  would  have 
difficulty  in  understanding  why  the  test  failed  when  the  mean  vector  appears  to  be  within  the 
ellipsoid.  This  apparent  contradiction  would  disrupt  the  learning  process.  At  this  point,  remember¬ 
ing  back  to  the  first  case,  the  user  may  ask  what  would  h^pen  if  all  the  pairwise  covariances  where 
equal  to  one.  The  fact  that  the  student  is  prompted  to  ask  this  type  of  experimental  question  alone 
shows  that  he  is  an  active  part  of  the  learning  process.  That  he  is  on  a  voyage  of  self  discovery 
learning  and  therefore  will  achieve  some  level  of  meaningful  learning.  This  type  of  question  also 
shows  that  the  program  has  caused  the  synthesis  of  knowledge  between  cases  which  is  learning  on 
a  third  level  and  is  strong  evidence  that  the  program  and  the  WAM  protocol  are  promoting 
meaningful  learning. 

4.4  Study  of  Case  3. 

This  case  involves  the  study  of  the  BVN  with  empirical  data  supplied  by  the  student  from  the 
keyboard.  Before  going  into  detail  about  the  options  of  this  case  it  is  important  to  discuss  the 
transition  from  theoretical  to  empirical  data.  In  Case  1  all  images  were  developed  from  purely 
theoretical  data.  In  Case  2  theoretical  and  empirical  data  were  given  together  in  orcter  to  show  the 
student  how  sample  data  is  only  representative  of  the  population  from  which  the  sample  came. 
Figure  4.1  shows  the  relationship  between  theory  and  practice.  When  information  about  the 
population  is  known  it  can  be  used  to  make  deductions  about  a  sample.  When  a  sample  is  given  it 
can  be  used  to  make  inferences  about  the  population.  In  the  last  two  Cases  the  student  will  be 


4.7 


supplying  empirical  (sample)  data  to  the  program.  From  this  data  he  will  be  able  to  make  inferences 
about  the  population.  He  will  also  realize  that  these  inferences  take  the  form  of  estimates  of  the 
true  parameters  of  the  population.  He  knows  this  because  they  were  able  to  create  this  knowledge 
while  reviewing  Case  2.  The  options  for  this  case  are  described  in  Table  3.5,  page  3.23.  It  should 
be  noted  that  for  the  first  time  the  relationships  of  the  individual  variable  means  are  stated.  This 
adds  a  new  dimension  to  the  problem.  It  will  be  the  users  job  to  determine  how  this  information 
and  these  interrelationships  between  the  means  effect  the  geometric  images  presented  on  the 
screen. 

The  first  option  is  the  condition  of  extreme  collinearity.  The  output  for  this  option  is  Figure  A.44 
(see  page  A.22).  As  the  student  might  expect  when  he  sees  that  the  covariance  is  near  1.0,  the 
ellipses  are  degenerating  into  lines.  The  knowledge  created  from  this  example  deals  with  what  the 
characteristics  of  a  sample  are  which  cause  extreme  collinearity.  He  can  hypothesize  that  since  one 
variable  is  predictable  when  the  other  is  present,  learned  from  Case  1,  then  the  predicted  variable 
must  be  a  scalar  multiple  of  the  predictor  variable.  When  he  reviews  the  input  data  (Figure  A.43, 
page  A.22)  he  will  see  that  a  given  value  for  x,  is  nearly  the  same  as  a  given  value  of  Xi,  or  that 
Xi  =  1:  X  xj  where  fe  =  1.0. 

In  the  next  option,  The  student  supplies  a  sample  where  the  means  of  those  samples  are  very 
different  and  so  are  the  variances.  Examining  the  output  (Figure  A.47,  see  page  A.24)  of  this  option 
shows  the  student  that  the  elongation  of  the  ellipses  is  more  than  expected  from  the  medium  value 
of  the  covariance.  Since  the  individual  means  and  the  variances  are  different  the  student  cannot 
determine  which  caused  the  extra  elongation.  The  student  can  explain  the  rotation  angle  of  nearly 
90  degrees  from  the  extreme  difference  in  the  variances.  He  already  constructed  the  knowledge 
that  variance  controls  the  angle  of  rotation  form  previous  cases.  To  answer  the  question  posed  by 
this  option  the  student  moves  on  to  the  next  option. 

In  this  option  (option  3)  the  hypothesis  is  that  it  is  the  differences  in  the  means  which  has  caused 
the  extra  elongation  of  the  ellipses.  When  the  output  is  studied  (Figure  A.51,  see  page  A.26),  the 
student  sees  that  the  hypothesis  is  in  fact  rejected.  The  ellipse  is  not  even  as  elongated  as  the 
previous  option  and  there  is  even  a  greater  covariance  in  this  option  then  the  last  Therefore,  the 
new  hypothesis  is  that  the  increased  elongation  is  due  to  the  extreme  differences  in  the  variances. 
To  test  this  hypothesis,  option  4  is  run. 

The  final  option  is  used  to  test  the  new  hypothesis.  The  means  are  relatively  equal  and  the 
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extreme  differences  in  variances  are  tested  at  three  levels  of  covariance.  The  outputs  for  parts  A, 
B  and  C  are  Figures  A.53  (page  A.27),  A.56  (see  page  A.28)  and  A.59  (see  page  A.30).  Close 
examination  of  these  outputs  suggests  that  the  new  hypothesis  is  not  rejected.  The  student  has 
modified  his  previous  knowledge  about  the  shying  of  the  ellipses  with  the  new  knowledge  that 
differences  in  the  variances  has  some  effect  on  their  sh^)es.  This  effect  must  be  to  some  lesser 
degree  than  that  of  the  convariance  since  it  becomes  af^arent  only  at  extreme  differences  in  the 
variances. 

What  case  three  has  shown  is  that  the  student  can  use  this  computer-based,  WAM  protocol 
based  learning  environment  as  an  experimental  learning  environment  which  is  exactly  what  was 
proposed  by  the  research  hypotheses. 

4.5  Study  of  Case  4 

The  description  of  this  case  is  shown  in  Table  3.6,  page  3.24.  This  case  is  the  same  as  Case  3 
except  that  it  deals  with  the  MVN.  this  case  was  chosen  to  show  how  the  same  experimentation 
can  occur  for  the  MVN  case.  The  output  screen  for  option  1  is  Figure  A.62  (see  page  A.31).  This 
option  shows  the  student  extreme  collinearity  in  3-dimensions  answering  the  question  posed  at  the 
end  of  Case  2.  The  output  for  option  2  is  Figure  A.64  (see  page  A.32).  With  a  closeup  of  screen  2 
in  Figure  A.65  (see  page  A.33).  The  third  option  is  displayed  in  Figure  A.67  (see  page  A.34)  and 
the  final  option  output  is  Figure  A.69  (see  page  A.35). 

4.6  Summary 

The  findings  and  analysis  of  the  methodology  run  has  yielded  strong  support  for  the  research 
hypotheses.  The  program  has  demonstrated  its  ability  to  facilitate  the  visualization  and  verbaliza¬ 
tion  steps  of  the  WAM  protocol.  It  has  stimulated  the  creation  of  new  knowledge  on  three  different 
levels  (see  Figure  4.2).  First  it  has  synergized  new  knowledge  from  information,  values  and  images. 

Knowledge  Creation  From 

Level  1— >  Visualization  of  Special  Situations 
Level  Corrparision  ofOpSons  with  a  Case 
Level  3— ►  Comparision  of  Different  Cases 


Figure  42.  Levels  of  Knowledge  Creetion 
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from  special  statistical  situations.  Second  it  has  stimulated  the  creation  of  knowledge  from  the 
comparison  of  options  within  chosen  cases  of  study.  Finally  the  program  was  successful  in 
prompting  meaningful  learning  from  the  comparison  of  two  or  more  specific  statistical  cases. 
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V.  Conclusions  and  Recommendations 


5. 1  Conclusions 

Previous  chapters  have  documeitted  the  effort  required  to  develop  a  learning  system  to  display 
geometric  images  characterizing  the  dependent  relationship  among  two  or  three  multivariate 
normally  distributed  random  variables.  The  computer  program  that  was  built  to  produce  these 
displays  was  exercised  under  the  governance  of  the  WAM  protocol  to  answer  the  investigative 
question  of  this  thesis,  mainly:  can  a  personal  computer-based  interactive  graphics  system  be 
developed  and  employed  under  the  aegis  of  the  WAM  protocol  to  create  an  imaginative,  visually 
interactive  and  meaningful  learning  environment  for  the  study  of  covariance? 

To  answer  this  question,  three  research  hypotheses  had  to  be  evaluated.  This  was  accomplished 
by  exercising  the  learning  system  that  was  developed  during  the  thesis  effort  to  determine  if  the 
three  hypotheses  could  be  confirmed. 

Recall  that  the  first  hypothesis  suggested  that:  the  WAM  learning  protocol,  developed  by 
Hansard,  can  be  used  to  orchestrate  an  experiment-based  environment  for  constructively  learning 
and  actively  exploring  variations  of  the  covariance  structures  associated  with  selected  multivariate 
databases. 

Results  of  experiments  reported  in  Chapter  4  strongly  suggest  that  the  WAM  is  effective  in 
orchestrating  an  experiment-based  environment.  Confirmation  was  obtained  that  the  first  two  steps 
of  the  WAM:  visualization  and  verbalization,  can  be  meaningfully  operationalized  by  generating 
interactive  displays  of  covariance  structures.  By  observing  and  attempting  to  verbalize  different 
features  of  ellipsoids  serving  to  model  a  specific  state  of  covariance  a  student  is  able  to  formulate 
statistical  hypotheses  and  to  design  and  to  conduct  experiments  to  test  such  hypotheses.  It  was  also 
demonstrated  these  results  could  be  obtained  for  covariance  structures  representing  bivariate 
and/or  multivariate  distributions. 

The  second  hypothesis  suggested:  computer-generated  graphic  images,  embedded  in  an  appro¬ 
priately  pictorialized  vector  space,  can  be  employed  to  enhance  the  identification  and  under¬ 
standing  of  aitical  statistical  features  traditionally  used  to  characterize  the  covariance  structure  of 
bivariate  aixi  multivariate  normal  populations. 

Experiments  conducted  to  evaluate  this  hypothesis  provided  solid  evidence  that  the  graphics 
program  produced  by  this  thesis  does,  in  fact,  create  and  display  images  that  efficaciously  represent 
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all  types  of  covariance  structures  for  bivariate  and  multivariate  normal  populations.  Solid  confir¬ 
mation  was  also  obtained  suggesting  such  images  can  be  presented  to  the  student  in  many 
alternative  ways  allowing  him  to  idiosyncraticaliy  identify  and  master  the  probabilistic  and 
statistical  theory  associated  with  particular  covariance  structures.  More  importantly,  such  pictures 
encourage  him  to  do  this  in  an  entirely  intuitive  manner  under  severe  time  constraints.  This  ensures 
the  learning  system  can  find  wide  application  in  tl^  conventional  classroom. 

Finally,  note  that  the  third  hypothesis  proposed: 

Exercising  a  graphics  oriented  program  which  supports  first  two  steps  of  the  WAM  protocol: 
visualization  and  verbalization  and  which  implements  relevant  heuristics  for  constructive  learning 
will  enable  students  to  gain  a  profound  and  experiment-based  mastery  of  the  multivariate  covari¬ 
ance  analysis  concepts. 

In  fact,  as  soon  as  the  program  was  run  under  the  aegis  of  the  WAM  it  became  obvious  that 
any  student  will  be  greatly  assisted  in  his  efforts  to  learn  by  discovery  by  such  an  image  rich 
environment.  Interactive  visual  aids  help  foster  an  awareness  of  subtle  connections  among  vari¬ 
ables  and  facilitate  competent  articulation  of  the  explicit  and  implicit  principles  of  multivariate 
statistics  that  are  mirrored  by  the  size,  shape  and  orientation  of  an  elliptical  image  of  covariance. 
Experiments  run  and  reported  in  Chapter  IV  confirmed  that  a  student,  under  competent  instructor 
guidance  can,  and  will,  use  his  personally  constructed  knowledge  to  link  whatever  he  knows 
coming  into  the  learning  experience  to  what  he  is  able  to  actively  learn  in  the  environment 
facilitated  by  the  graidiical  display  system  of  this  thesis. 

Students  routinely  formulated  questions  during  the  time  they  were  verbalizing  about  what  they 
saw  on  the  computer  saeen.  Such  spontaneous  behavior  confirmed  the  gr^hics  program  produced 
by  this  thesis  does  facilitate  an  environment  that  stimulates  questioning  and  encourages  a  student 
to  attempt  to  answer  his  own  questions.  Immediate  and  continuous  feedback  guarantees  the  student 
will  maintain  a  lively  interest  in  the  subject  under  study  as  well  as  experience  profound  enthusiasm 
for  carrying  out  whatever  learning  activities  he  is  requested  to  accomplish. 

In  summary,  abundant  evidence  was  obtained  to  suggest  full  and  complete  support  exists  for 
each  of  the  research  hypotheses.  Thus,  a  positive  response  to  the  investigative  question  can  be 
made;  that  is,  that  a  personal  computer-based  interactive  graphics  system  can  be,  and  now  has  been, 
developed  and  implemented  under  the  aegis  of  the  WAM  protocol  to  create  an  imaginative, 
visually  interactive  and  meaningful  learning  environment  for  the  study  of  covariance. 
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5.2  Recommendations  for  Future  Research 

Three  suggestions  for  future  research  are 

1 .  To  enhance  the  current  counter  program. 

2.  To  generate  displays  that  display  the  evolution  of  Covariance  Structures  over  some  continuum 
like  time,  ^ace  or  the  domain  of  one  or  more  population  parameters 

3.  To  adapt  the  WAM  protocol  for  use  in  a  qualitative  context 

5.2- 1  Enhancing  the  Current  Program.  Several  specific  enhancements  to  the 
current  program  could  expand  a  student’s  ability  to  construct  new  knowledge  of  covariance 
structures.  First,  if  the  program  were  restructured  to  handle  larger  sample  sizes  more  extensive 
explorations  could  be  made  concerning  the  sensitivity  of  covariance  structures  to  modifications  in 
population  parameter  values.  This  would  enhance  a  student’s  ability  to  ex^ore  the  relationship 
sample  size  has  on  attempts  to  estimate  or  test  hypotheses  about  a  populations  characteristics. 

Enhancements  would  also  permit  the  study  of  a  two  samples  scenario.  This  would  require 
creating  and  di^laying  images  of  two  covariance  structures  simultaneously  in  order  to  pennit  the 
comparison  of  two  multivariate  normal  populations.  Such  an  enhancement  would  allow  a  student 
to  explore  concepts  of  two-sample  inference  as  well  as  open  up  possibilities  for  studying  additional 
multivariate  topics  such  as  Multivariate  Regression,  Discriminate  Analysis  and  Multidimensional 
Scaling. 

5.2- 2  Generation  of  Evolving  Displays  of  Covariance.  Another  recommen¬ 
dation  would  be  to  take  all  the  current  and  pressed  capabilities  of  the  program  and  create  a  new 
computer  program  to  facilitate  the  animated  display  of  evolving  ellipsoids  -  each  subject  to  change 
and  variation  through  time.  This  new  ctq)ability  could  be  considered  as  an  attempt  to  display  the 
evolution  of  covariance  as  it  changes  through  time  -  which  it  surely  does  in  the  real  wtx-ld.  It  would 
also  require  a  very  computationally  imense  environment  and  pose  extraordinary  demands  on 
internal  memory.  A  Sun  work  station  would  support  such  fast  computation  needs  as  well  as  execute 
Mathematica:  software  that  already  contains  relevant  mathematical  and  aitimation  routines  as  part 
of  its  menu  of  callable  procedures. 

Since  the  current  program  requires  students  to  visualize  ellipsoids  portrayed  by  three  defining 
ellipses,  sometimes  it  is  difficult  to  maintain  a  full  3-D  perspective,  especially  if  two  ellipsoids  are 
displayed  at  the  same  time.  If  each  ellipsoid  was  presented  as  a  hollow  shell  the  student  could  easily 
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distinguish  between  separate  elUpsokJs  on  the  screen.  Animation  coupled  with  such  a  shell  image 
would  facilitate  dynamic  and  coherent  displays  of  relevant  ellipsoids. 

When  the  current  program  is  nin  and  a  student  wants  to  change  one  or  more  of  the  values  he 
entered  as  input,  he  must  restart  the  program  and  initiate  a  new  nm  of  the  program.  Full  animation 
would  allow  him  to  change  values  periodically  (e.g..  one  or  more  of  the  parameters  in  the  mean 
vector  or  covariance  matrix)  and  obtain  instant  feedback  on  how  sudi  modifications  effect  the 
shape,  size  or  orientation  of  the  ellipsoid.  This  would  heighten  the  level  of  active  exploration  and 
experimentation  arxl  further  enhance  a  student’s  opportunity  to  discover  his  innate  ability  to 
construct  new  knowledge  at  any  level  of  abstraction. 

5.2-3  Adaptation  of  the  WAM  Protocol  for  Qualitative  Contexts.  This 

final  recommendation  promises  to  yield  the  most  profound  enhancements  of  all.  For  if  the  WAM 
protocol  is  applied  in  a  non-mathematically  based  curriculum,  construction  of  new  knowledge  can 
occur  in  any  conceivable  learning  environment.  In  fact,  this  research  demonstrated  again  and  again 
that  the  most  important  steps  of  the  WAM  protocol  are  the  first  two;  visualization  and  verbaliza¬ 
tion.  These  two  steps  should  remain  relatively  unchanged  in  a  qualitative  environment.  The 
difficult  part  would  be  finding  an  a^opriate  way  to  logically  algorithmitize  and  formally 
articulate  the  new  knowledge  acquired.  Visualizations  could  be  facilitated,  peih^s,  by  an  active 
involvement  with  computer  based  videos,  and  by  orchestrating  role  playing  exercises  or  computer 
based  simulations.  It  is  important  to  emphasize  that  whenever  the  WAM  is  exercised  in  a 
qualitative  context  the  student  should  always  be  allowed  to  maintain  active  control  over  what  is 
being  visualized.  He  should  also  be  able  to  experiment  with  self-selected  situations  and  formulate 
and  test  hypotheses  he  considers  impoitant  The  use  of  heuristics  rather  than  algorithms  would 
probably  serve  as  step  three  of  the  WAM  protocol.  In  lieu  of  using  the  language  of  mathematics 
for  formalization  at  Step  4,  a  mwe  ideographic  language  could  be  employed  offering  much  richer 
variety  for  expressing  any  given  heuristic.  This  would  surely  be  mandatory  during  the  study  of 
living  systems,. 

In  short,  the  research  performed  to  complete  this  thesis  confirmed  that  the  personal  computer 
can  be  used  to  orchestrate  a  Soaatic  dialogue  among  the  three  majOT  components  of  the  learning 
triad: 

Student-Curriculum-Teacher 

tvithin  the  constraints  of  conventional  school  governance.  It  also  confirmed  this  can  be  done  in 
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a  way  that  facilitates  an  environment  for  meaningful  learning  and  stimulates  self-discovery  of  die 
conc^ts  and  propositions  of  multivariate  covariance  analysis. 
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Appendix  B 

The  main  program  contains  the  following  procedures: 

1.  InitObject  =  prepares  points,  endpoints  and  lines  so  they  are  ready  to  be  processed  and  displayed 
in  AcroMoli. 

2.  GenerateAxis  =  generates  the  coordinate  system  and  the  major  and,  if  in  2-D  case,  the  minor 
axis  of  the  ellipses  is  displayed. 

3.  Ellipses  =  generates  the  ellipses  out  of  points. 

4.  DrawOutlines  =  generates  the  boarders  of  the  main  screen  and  displays  the  information  needed 
according  to  the  case  being  used. 

Program  Ellpise; 

{$F+} 

(*  Tltis  program  is  an  example  of  some  of  the  things  that  you  can  do  with  the  *) 

(*  AcroMole  subroutine  library  published  by  Acrobits,  USA,  (801)966-2.S80  or  *) 

(*  toll-free  in  the  US  &  Canada  (8(K)) ACROBITS  (i.e.  (800)227-6248).  *) 

uses  Overlay, Mathsruf,matlimat,rgraphma.graph,Get_data.cn; 

{$L  M0LE9.0BJ}  (*  Include  object  code  for  AcroMole  subroutines.  *) 

{$I  ACROMOLE.PAS }  (*  Include  Pascal  definitions  for  AcroMole  subroutines.  *) 

{$I  UTILITY.PAS}  (*  Include  Pascal  utility  routines.  *) 

{$0  Mathstuf} 

{$0  mathmai) 

{$0  rgraphma} 

($0  Get_data} 

Var 

CalculateScaleFacti)rsVar:CalculateScaleFaciorsRecord: 

DrawLine  Var  :Dra  wLi  neRecord ; 

DrawRectaiigleVar:DrawRectangleRecoid; 

SetRi  ght  3D(5amera  Var :  Set  3DC  ameraR  ecord ; 

SetLelit  3DCamera  V  ar :  Set  3DCameraRecord ; 

SetDrawingBufferVar:SetDrawingBufferRecord; 

SetLeftWindowVariSetWindowRecord; 

SetUpperWindowVar:SetWindowRecord; 

SetLowerWindowVar:SetWindowRecord; 

SetFullWindowVar:SetWindowRecord; 

TempWorldPoint:WorldPoiniPointer; 

Endpoint  l,Endpoint2:WorldEndpoinipointer; 

TempWorldLine:WorldLinePoinier; 

I.J,K:Word; 

Temp:Integer; 

WindowWidih:Integer; 

WindowHeight:lnteger; 
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WindowHorizontal:Integer; 

WindowVertical'.lnieger; 

NumberOfBuffersiWord; 

Angle.'Real; 

TeinpReal:Real; 

SinAngIe,CosAngIe,SinPositiveAng]e:Real; 

DeltaDistance.Real ; 

xdata.S,Sigma,cvalue,xbar,Rmatrix,eigenvalues.eigenvectors,SiginaByN, 

eva]star,evecstar,Mu,SbyN,txbar;inathinat.tnatx; 

xliigh,xlow:RealArTayMPbyMP; 

answerrreal; 

look,flagfl  ,flagf2,flagf3:boolean; 

GD,Gm,Errcode;inieger; 
choice  J*;string; 
ordchoice,code,ordP;integer; 
xx,change,xinax  ,ymax  ,zmax  ;real ; 
xlbar,x2bar,x3bar-.string; 

LlJL2,L3:string; 

sig2xl,sig2x2,sig2x3;string; 

kolor:byte; 

Label  888; 

Const 

WorldPointList:WorldPointPoimer=Nil; 

WorldEndpointList  :WorldEndpointPointer=Nil ; 

WorldLineList:WorldLinePointer=NiI; 

WorldPointLisiSl:WorldPointPointer=Nil; 

WorldPointListS2:WorIdPointPointer=Nil; 

WorldPointListS3:WorldPointPointer=Nil; 

Distance:Real={).7; 

Speed:Real=0.0aX)3; 

Matrix:AiTay[0..2,()..2]  Of  Real=  (*  Rotation  matrix.  *) 
((32760.0.0.0.0.0),(().0.32760.(),0.0),(0.{),0.0.32760.0)); 


(* . *) 

(*  Initializes  an  object  that  has  up  to  255  endpoints,  and  *) 

(*  255  lines.  *) 

Type 

EndpointRecord=Record  X,Y,Z:inieger;  End; 
EndpointArrayType=Anay(  1  .255]  Of  EndpoinlRecord; 
EndpointArrayPointer=''EndpointAiTayType; 
LineRecord=Record  Endpoint  l.Endpoini2,Color;Byte;  End; 
LineAnayType= Anay[  1 .  .255]  Of  LineRecord; 
LineArrayPointer=''LineArrayType; 

Procedure  InitObject(EndpointArray:EndpointArrayPointer; 
LineArrayiLineArrayPointer; 

Endpoints,Lines:Byte; 

ScaleFactor-.lnteger; 

Var  WorldEndpointList:WorldEndpointPointer; 

Var  WorldLineList  :WorldLinePointer); 
const 

FreeWorldEndpointList  ;W  orldEndpointPointer=Nit ; 
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FreeWorldLineList:WorldLinePoimer=Nil; 

Var 

TeinpWorldEndpoint:WorldEndp)ointPointer; 

TempWorldLine:WorldLinePoinier; 

TempEndpointPointers:Array[  1..255]  Of  WorldEndpointPoinier; 

PByte; 

Begin 

For  I:=l  To  Endpoints  Do  Begin 
If  FreeWorldEndpointList=Nil  Then  New(TeinpWorldEndpoint) 

Else  Begin  TempWorldEndpoint:=FreeWorldEndpointList: 
FreeWorldEndpointList:=FreeWorldEndpointList^.Next;End; 

TenipWorIdEndpoint'^.Transform3DEndpointVar.WorldX:= 
ScaleFacior*EndpointArray^[1 1  .X ; 

TempWorldEndpoint^.Transform3DEndpointVar.WorldY:= 
ScaleFactor*Endpoint  Array'll!  ].Y; 

TempWorldEndpoinf'^.Transforni3DEndpointVar.WorldZ:= 

ScaleFactor’''EndpointArray^[I].Z; 

TenipWorldEndpoint'^.Nexi:=WorIdEndpointList; 
TenipEndpointPointers[I]:=TenipWorldEndpoint; 
WorldEndpointList:=TempWorldEndpoint;  End; 

For  I;=l  To  Lines  Do  Begin 
If  FreeWorldLineList=Nil  Then  New(TempWorldLine) 

Else  Begin  TenipWorldLine:=FreeWorldLineList; 
FreeWorldLineList:=FreeWorldLineList^.Nexi;End; 

TempWorldLine^.Endpoint  1  :=TempEndpointPoimers(LineArray''[I].Endpointl ); 
TempWorldLine'^.Endpoim2;=TempEndpointPointers(LineArray^[l].Endpoint2); 
If  LineArray^[I].Color=MaximuniColor  Then 
TempW  orldLine''  .Color  :=Line  Array 1  ]  .Color 
Else  TempWorldLine''.Color:=((LineArray''[l].Color-l)  Mod  MaximumColorHl: 
TempWorldLine''.Next;=WorldLineList; 

WorldLineList:=TempWorldLine;End; 

End; 

(* . *) 


Procedure  GenerateA\is(xniax  ,yniax,zmax:real;var  xBarstar:mathmat.matx; 
var  xhigh.xlow:realarraympbynip; 

var  variance:mathmat.niatx;cvalue,eigenvalues;inathmat.matx); 


Type 

EndPointNames= 

(dummy, 

endl, 

end2, 

end3. 

end4. 

end5. 

end6, 

end?. 
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ends, 

end9, 

endlO, 

endll, 

endl2, 

end  13, 

endl4, 

endl5, 

endl6  (* centroid*) 

); 


EndPtAiTayType=Array[  1 ..  1 6, 1  ..3]  of  integer; 
CordLineRecord=Record  Epl,Ep2:EndpointNames;  Color:Byte;  End; 
CordLineArrayType=Array  ( 1 ..  1 3]  Of  CordLineRecord; 
const 

CordLineArTay;CordLineArrayType= 

( 

(EPl  :endl  ;Ep2:end2;color;white). 

(EPl  :endl  ;Ep2:end3:color:  white), 

(EPl  :endl  ;Ep2;end4;color:white). 

^P1  ;endl  ;Ep2:end5;color:whiteX 
(EPl  :endl  ;Ep2:end6;color:white), 

(EP 1  :end  1  ;Ep2  :end7  ;color:  whi  te) , 

(EPl  :end8;Ep2:endl4;color:cyan). 

^P1  :end9;Ep2:endl4;color:cyan), 

(EPl  :end  1 0;Ep2  :end  1 4;color:cyan), 

^P1  .end  1 1  ;Ep2;endl4;coIor:cyan). 

(EPl  :end  1 2  ;Ep2  :end  1 4;color;cyan), 
ffPl  :end  1 3;Ep2  :end  1 4;color;cyani 
(EPl  ;end  1 5  ;EP2  :end  1 6;color:cyan)); 


Const 

Magnify:Real=  150.1;  (Indicates  relative  length  of  Axes  to  object} 
var 

CordEndPt  Array  :EndPt  ArrayT  ype ; 

DX,DY,DZ,gd,gm:  Integer;  (Dummy  Variables) 

MX,MY,MZ:  Real; 

Center:  Real ;  { Center  of  Label } 

Leg:  Real;  (Label  variable} 
tempreal'.real; 

Begin 

(*  MX  :=  Xmax*3.0;  MY  :=  Ymax*3.0;  MZ  :=  Zmax*3.0; 

If  Xmax<((MY+MZ)/3)  then  Xmax:=(MY+MZ)/3; 

If  Ymax<((MX+MZ)/3)  then  Ymax:=(MX+MZ)/3; 

If  Zmax<((MX+MY)/3)  then  Zmax:=(MX+MY)/3;  *) 
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Xmax;=  Magnify*Xmax; 

Ymax:=  Magnify'Ymax;  {We  want  the  Axes  to  go  past  the  object) 
Zinax:=  Magnify^Zmax; 

IF  xmax 
IF  ymax 

CordEndPtArray  [  1 4, 1  ]  :=0: 

CordEndPiArray[14,2i:=0;  (* Centroid*) 

CordEndPtArray  [  1 4,3]  :=0; 


CordEndPtArray  [  1 , 1  ]:=0-Round(  1 00*xBarstar.data[  1,1]); 
CordEndPtArray!  1 ,2]:=0-Round(100*xBarstar.data[2,l  ]);  (*  origin  *) 
if  ordp=3  then 

CordEndPtArray!  1 ,3]:=0-Round(  100*xBarstar.data!3,l]) 
else 

CordEndPtArray!  1 ,3]:=0; 

CordEndPtArray!2,l];=0-Round(10()*xBarstar.data!l,l]); 

CordEndPtArray!2,2]:=()-(Round(l()()*xBarstar.data!2,l]+ymax)); 

If  ordp=3  then 

CordEndPtArray!2,3]:=()-Roiind(l(K)*xBarstar.data!3.1]) 

else 

CordEndPtArray  !2.3]  :=(); 

CordEndPtArray!3.1]:=0-Round(l(K)*xBarstar.data!l.l]); 
CordEndPtArray!3,2J:=0-Round(  K)0*xDarsfar.data{2,  J  ]); 
if  ordp=3  then 

CordEndPtArTay!3,3]:=()-(Round(KK)*xBarstar.data!3,l]+zmax)) 

else 

CordEndPt  Array !  3, 3  ] : =0; 


CordEndPtArray  !4. 1  ]:=0-(Round(  1  (K)*xBarstar.data!  1 . 1  ]+xmax)); 
CordEndPt  Array!4,2]:=0-Round(l(K)*xBarstar.data!2,l]); 
if  ordp=3  then 

CordEndPtArTay!4,3]:=0-Round(l()0*xBarstar.data!3,l]) 

else 

CordEndPt  Array  !4,3]  :=0; 

CordEndPt  Array  !5, 1  ]  :=0-Round(  1  (K)*xBarstar.data!  1,1]); 
CordEndPt  Array!5,2]:=0-(Round(  100*xBarstar.data!2,l  ]-yinax)); 
if  ordp=3  then 

CordEndPt  Array!5,3]:=0-Round(  100*xBarstar.data!3,l  ]) 
else 

CordEndPt  Array!5,3]:=(); 

CordEndPtArray  !6, 1  ]  :=0-Round(  1  Ot)*xBarstar.data!  1,1]); 
CordEndPtArray!6.2]:=0-Round(l(X)*xBarstar.data!2,l]); 
if  ordp=3  then 

CordEndPtArray!6,3]:=()-(Round(100*xBarstar.data!3,l  ]-zmax)) 
else 
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CordEndPi  Array  [6,3]  ;=0; 


CordEndPtArray  [7, 1  ]  :=0-(Round(  1 00*xBarsfar  .daia[  1 , 1  ]-xmax)); 
CordEndPi  Anay  [7,2]  :=0-Round(  1 00*xBarstar.data[2, 1  ]); 
if  ordp=3  then 

CordEndPi  Array  [7,3]  :=0-Round(  1 00*xBarstar.data[3, 1  ]) 
else 

CordEndPtArray]  7,3]  .-0; 

(*  Endpoints  at  the  Ends  of  the  Major  and  Minor  Axis  *) 

If  (xhigh[  1 , 1  ]-xlow[  1 , 1  ])>(xhigh[  1 ,2]-xlow[  1 .2]) 

Then  begin 

ellipseXlX2bottom(xhigh[  1 , 1  ],variance,cvalue,xBarstar,answer); 
CordEndPi  Array  [8, 1  ]  :=0-(Round(  1  {)0*(xhigh[  1 , 1  ]-xBarstar.data[  1,1]))); 
CordEndPi  Array[8,21;=0-(Round(I()0*(answer-xBarstar.data[2,l]))); 
CordEndPi  Array  [  8, 3]  :=0; 

ellipseXlX2top(xlow[l,l],variance.cvalue.xBarstar.answer); 

CordEndPi  Array  [9, 1  ]:=0-(Round(  l{)0*(xlow[  1 . 1  ]-xBarstar.data[  1 . 1  ]))); 
CordEndPtArray[9,21;=0-(Round(UK)*(answer-xBarstar.data[2,l]))); 
CordEndPt  Array[9.3]  :=(); 

If  ordp=2  then  begin 

tempreal  :=xBarstar.data[  1.1]- 

(eigenvalues.data[4,2]*cos(eigenvalues.data[l,2])); 

ellipseXlX2top(tempreal.variance,cvalue.xBarstar,answer); 
CordEndPtArray!  15.1  ]:=0-(round(  1  (X)*(tempreal-xbarstar.data[  1 ,1  ]))); 
CordEndPtAiTay[15.2]:=()-(Round(l()U*(answer-xBarsiar.daia[2,l]))); 
CordEndPtArray]  ]5.3];=(); 

tempreal  ;=xBarstar.data[  1,1]+ 

(eigenvalues.daia[4,2]*cos(eigenvalues.data[l,2])); 
ellipseXlX2bottom(xBarstar.da!a[  1 .1  ].variance.cvalue,xBarstar.answer); 
CordEndPtArray]  1 6, 1  ]:=0-(round(  I  (K)*(-xbarstar.data(  1, 1  ]+tempreal))); 
CordEndPtArray]  1 6,2]:={)-(Round(  1  (K)*(answer-xBarstar.data]2, 1  ]))); 
CordEndPt  Array]  1 6,3]  :=(); 
end'.end 

else  begin 

ellipseX2X  lBotiom(xhigh[  1 .2],variance.cvalue,xBarstar.answer); 
CordEndPtArray]8,l  l;=0-(Round(  100*(answer-xBarstar.data]  1,1]))); 
CordEndPtArray[8.2]:=0-(Round(l(X)*(xhigh]l,2]-xBarstar.data]2,l]))); 
CordEndPt  Array]8,3]:=0; 

e]]ipseX2X  1  top(xlow]  1 ,2],variance.cvalue.xBarstar,answer); 

CordEndPt  Anay  [9. 1  ];=0-(Round(  100*(answer-xBarstar.data]  1,1]))); 
CordEndPt  Array]9.2);=()-(Round(l(X)*(xlow]  1, 2]-xBarstar.data]2,l]))); 
CordEndPt  Array[9.3];=0; 
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If  ordp=2  then  begin 

tempreal:=xBarstar.data[2,l]- 

(eigenvalues.data[4,2]*cos(eigenvalues.datatl,2])); 
ellipseX2X  1  top(temprea]  ,vari  ance,cvalue,xB  arstar, answer): 
CordEndPiArray  [  15,1]  :=0-(Round(  1 00*(answer-xBarsiar.dala[  1,1]))); 
CordEndPiArray[15,2]:=0-(Round(100*(tenipreal-xbarstar.data[2,l]))): 
CordEndPtArray[  15,3]:=0; 

tempreal:=xBarstar.data[2, 1  ]->- 

(eigenvalues.data[4,2]  '*cos(eigenvalues.data[  1 .2])); 
eIIipseX2Xlbottom(teniprea],variance.cva]ue,xBarstar,answer); 
Cor^ndPt  Array  [  1 6, 1  ]:=0-(Round(  1 00*(answer-xBarstar.data[  1,1]))); 
CordEndPiArTay[16,2]:=0-(Round(100*(-xbarstar.data[2,l]+tempreal))); 
CordEndPt  Array  [  16,3]  :=0; 
end;end; 


Ifordp=3then  begin 

If  (xhigh(  1 , 1  ]-xlow(  1 . 1  ])>(xhigh[  1 ,3]-xlow[  1 ,3]) 

Then  begin 

ellipseXlX3top(xhighI  1 .1  ],variance.cvalue,xBarstar,answer); 

CordEndPt  Array[  1 0. 1  ]  :=0-(Round(  1  CK)*(xhigh[  1 , 1  ]-xBarstar.data[  1,1]))); 
CordEndPt  Array  [  1 0.2  ]  :=0; 

CordEndPt  Array  ( 1 0.3]  :=0-(Round(  1 00*(answer-xBarstar.data[3. 1  ]))); 


ellipseX  lX3bonom(xlow(  1 . 1  J.variance.cvalue.xBarstar  .answer); 
CordEndPt  Array!  1 1  •  •  ]  :=0-(Round(  1  (K)*(xlow(  1 . 1  ]-xBarstar.data[  1 , 1  ]))); 
CordEndPt  Array!  1 1.2]:=0; 

CordEndPt  Array  1 1 1 .3]  :={)-(  Rou  nd(  KK)*(  answer-xBarstar  .data!  3. 1  ]))) ; 
end  else  begin 

ellipseX.3X  ltop(xhigh!  1 ,3],variance,cvalue,xBarstar,answer); 

CordEndPt  Array  1 10. 1  ]:=0-(Round(  l(K)*(answer-xBarstar.data!  1,1]))); 
CordEndPt  Anayl  10,2];=(); 

CordEndPt  Array!  1 0.3]:=0-(Round(  1 00*(xhighl  1 ,3)-xBarstar.data!3, 1  ]))); 

ellipseX3X  lbonom(xlow!  1 .3],variance,cvalue,xBarstar  .answer); 
CwdEndPt  Array!  1 1 . 1  ]:=0-(Round(  l(X)*(answer-xBarstar.daiaI  1,1  ]))); 
CordEndPt  Array  1 1 1 .2]:=0; 

CordEndPt  Array!  1  l,3]:=0-(Round(l(X)*(xlow[l,3]-xBarstar.dataI3.1]))); 
end;  (end  if  x  1  or  x3  major  axis } 

If  (xhighi  1 ,2]-xlowI  1 .2])>(xhigh!  1 ,3]-xlow[  1 ,3]) 

Then  begin 

eIlipseX2X3top(xhigh!  1 .2],variance.cvalue.xBarsiar.answer); 

CordEndPt  Array!  1 2. 1 1:=0; 

CordEndPt  Array  1 1 2,2]:=0-(Round(  l(X)*(xhighI  1 ,2]-xBarstar.dataI2,l  ]))); 
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CordEndPtArray[  1 2,3]:=0-(Round(100*(answer-xBarstar.data(3, 1  ]))); 

eIlipseX2X3bottom(xlow[  1 .2],  variance,cvalue,xBarstar,answer); 
CordEndPt  Array  [  1 3, 1  ]  :=0; 

CordEndPiArray  [  1 3.2]:=0-(Round(  1 00*(xlow[  l,2]-xBarstar.data[2,l  ]))); 
CordEndPtArray  [  1 3,3]:=0-(Round(  100*(answer-xBarstar.data[3, 1  ]))); 
end 

else  begin 

ellipseX3X2top(xhigh[  1 ,3],variance,cvalue,xBarstar,answer); 

CordEndPt  Array  [  1 2, 1  ]  :=0; 

CordEndBArrayi  1 2,2]  :=0-(Round(  1 00*(answer-xBarstar.data[2, 1  ]))); 
CordEndPtArray!  1 2,3]:=0-(Round(  1 00*(xhigh[  1 ,31-xBarstar.data[3, 1  ]))); 

ellipseX3X2bottom(xlow[l,3],variance,cvalue,xBarstar  .answer); 
CordEndPtArray(  1 3,1  ]:=0; 

CordEndPtArray!  1 3,2  j:=0-(Round(  100*(answer-xBarstar.data[2.1]))): 
CordEndPt  Array  !l  3,3]  :=0-(Round(l(K)*(xlow[l,3]-xBarstar.data[3,l]))); 
end;  {  end  if  x2  or  x3  major  axis } 

end 

else  begin 

CordEndPtArray!  10, 1  ]:=0; 

CordEndPtArray!  1{).2];=(); 

CordEndPt  Array[10.3]:=0; 

CordEndPt  ARay!  1 1 .1 1;=0; 

CordEndPtArray!  11. 2]  :=0; 

CordEndPtArray!  11, 3]:=0; 

CordEndPt  Array !  1 2 , 1  ]  :={); 

CordEndPtArray!  1 2.2]:=(); 

CordEndPtArray!  12.3];=0; 

CordEndPtArray!  1 3. 1  ]:=(); 

CordEndPtArray!  1 3,2  ]:=(); 

CordEndPtArray!  1 3,3];=(); 

end;  (*  ifordp=3*) 

if  ordp=2  then 

InitObject(  ©CordEndPt  Array ,  @CordLineArray,  1 6, 1 3, 1 , 

W  or  IdEndPoi  ntLi  st ,  WorldLi  neLi  st ) 
else 

lnitObject(  ©CordEndPt  Array .  ©CordLine  Array,  1 4, 1 2, 1 . 

WorldEndPointList.WorldLineList); 
end;  {Procedure  Generate  Axis] 


Procedure  ellipses(txbar:mathniat.matx;ordchoice.ordp:integer;var  xlow,xhigh:realarraymp- 
bymp; 

var  xBarstar, 
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cvalue;inathmat.inatx;var  variance:inathniat.matx; 

Var  WorldPointList:Worl(jPointPointer;kolor:byte;whichHiLo,screen:Integer); 
var 

nop:integer;  {number  of  points} 
nopr:rea];  {#  of  intervals} 

Begin 

if  ordp=3  then  begin 
nopr:=  150.0; 
nop:=151;end 
else  begin 
nopr:=275.0; 
nop:=276;end; 
if  ordchoice=5  then  begin 
nopr:=  130.0; 
nop:=131;  end; 


(♦ - *) 

(*  Calculate  coordinates  for  points  in  the  X 1  vs  X2  Ellipse.  *) 

(* . *) 


If  (xhigh[WhichHiLo,l]-xlow[WliichHiLo,l})>(xhigh[WhichHiLo.2]-xlow[WhichHiLx),2]) 
Then  begin 

xx:=xlow[whichHiLo.l]; 

change:=(xhigh[WhichHiLo,l]-xl()w[WhichHiLo,l])/nopr;end 
else  begin 

xx:=xlow(whichHiLo,2]; 

change:=(xhigh[WhichHiLo,2}-xIow[WhichHiLo,2])/nopr;end; 


For  J:=l  to  nop  Do  Begin 

New(TempWorldPoint);TenipWorldPoint''.Next:=Worldpointlist; 

WorldPointLisi:=TempWorldPoint; 

If  (xhigh[WhichHiLo.l]-xIow[WhichHiLo.l])>(xhigh[WhichHiLo,2]-xlow[WhichHiLo.2]) 
Then  begin 

ellipseX  1  X2Top(xx,Variance.Cvalue.xBarstar  .answer); 

WorldPointList''.Transforni3DPointVar.WorldX:=  Round(  100*  (xx-xBarstar.data[l,l])); 
WorldPointList''.Transform3DPointVar.WorldY:=  Round(  100*  (answer-xBarstar.data[2,l])); 
WorldPointList''.Transform3DPointVar.WorldZ;=0;  {zbar}  end 
else  begin 

ellipseX2XlTop(xx,Variance.Cvalue.xBarstar,answer); 

WorldPointList''.Transforni3DPointVar.WorldX:=  Round(  100*  (answer-xBarstar.data[l,l])); 
WorldPointList''.Transform3DPointVar.WorldY:=  Round(  100*  (xx-xBarstar.data[2,l])); 
WorldPointList''.Transforni3DPointVar.WorldZ:=0;  {zbar}  end; 

WorIdPointList''.Color:=kolor; 

xx:=xx+change; 

End; 

(*  The  Points  for  The  Bottom  of  Ellipse  1*) 

If  (xhigh[WhichHiLo.l}-xlow[WhichHiLo.l])>(xhigh[WhichHiLo,2]-xlow[WhichHiLo,2]) 
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Then  begin 

xx:=xlow(whichHiLo,  1  ]; 

change:=(xhigh[  WhichHiLo,  1  ]-xlow[WhichHiLo,  1  l)/nopr;end 
else  begin 

xx:=xlow[whichHiLo.2]; 

change;=(xhigh[WhichHiLo,2]-xlow[WhichHiLo,23)/nopr;end; 
for  j:=l  to  nop  do  Begin 

New(TempWorldPoint);TempWorldPoint'^.Next;=WOTldpointlist; 

WorldPointList:=TempWorldPoint; 

(*  This  if  looks  to  see  which  variable  represents  the  major  axis  *) 

(*  Then  graphs  using  it  as  xx  *) 

If  (xhigh[  WhichHiLo.  1  ]-xlow[  WhichHiLo.  1  ])>(xhigh[WhichHiLo.2]-xlow[  WhichHiLo.2]) 
Then  begin 

ellipseX  1  X2Bottom(xx,Variance,Cvalue,xBarstar  .answer); 

WorldPointList^.Transform3DPointVarWorldX:=  Round(  100*  (xx-xBarstar.data[l.l])); 
WorldPointList''.Transforni3DPointVar.WoridY:=  Round(  100*  (answer-xBarstar.data[2.1])); 
WorldPointList''.Transform3DPointVar.WorldZ:=0;  {zbar}  end 
else  begin 

ellipseX2XlBonom(xx,Variance,C  value, xBarstar.answer); 

WorldPointLisi^.Transform3DP«iniVar.WorldX;=  Round(  100*  (answer-xBarstar.data[l,l])); 
WorldPointList^.Transform3DP()intVar.WorldY:=  Round(  100*  (xx-xBarstar.data[2,l])); 
WorldPointList''.Transforni3DPoinlVar.WorldZ:=0;  {zbar}  end; 

WorldPointList''.Color:=kolor; 

xx:=xx+change; 

End; 

If  (ordp=3)  then  begin 
(*  Calculate  the  XI  vs  X3  Ellipse  *) 

If  (xhigh[WhichHiLo,  l]-xlow[  WhichHiLo.  l])>(xhigh{WhichHiLo,3]-xlow[WhichHiLo.3]) 
Then  begin 

XX  :=xlow[  WhichHiLo,  1  ]; 

change:=(xhigh[whichHiLo,  1  ]  xlow( whichHiLo.l  ])/nopr;end 
else  begin 

xx:=xlow[whichHiLo,3]; 

change:=(xhJgh[whichHiLo,3]-xlow(whichHiLo,3])/nopr;end; 

For  j;=l  to  nop  do  begin 


New(TempWorldPoint);TempWorldPoint''.Next:=Worldpointlist; 

WorldPointList:=TempWorldPoint; 

If  (xhigh[  WhichHiLo.  l]-xlow[  WhichHiLo,  l])>(xhigh[  WhichHiLo,3]-xlow[Which- 
HiLo.3]) 

Then  begin 

eIlipseXlX3top(xx,Variance.Cvalue.xBarstar  .answer); 
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WorldPointList^.Transforni3DPointVar.WorldX:=  Round(  100*  (xx-xBar- 
star.data[l,l])); 

WorldPointList'^.Transfonn3DPointVar.'WorldY:=  0;  {Ybar} 

WorldPointList''.Transform3DPointVar.WorldZ:=  Round(  100*  (answer-xBar- 
star.dataI3,l])); 

end 

else  begin 

ellipseX3X  1  top(xx,Variance.Cvalue,xBarstar  .answer); 

WorldPointLjsr.Transform3DPointVar.WorldX:=  Round(  100*  (answer-xBar- 
star.data[l,l])); 

WorldPoinlList^.Transfonn3DPointVar.WorldY:=  0;  {Ybar} 

WorldPointLisi''.Transform3DPointVar.WorldZ:=  Round(  100*  (xx-xBar- 
star.data[3,l])): 

end; 


WorldPointLisi''.Color;=k()lor; 

xx:=xx+change; 

End; 

If  (xhigh[WhichHiLo.l]-xIow[WhichHiLo,l])>(xhigh[WhichHiLo,3]*xlow[Which- 
HiLo.3]) 

Then  begin 

xx:s=xlow[whichHiLo.l]; 

change:=(xhigh[whichHiLo.l]-xlow[whichHiLo,l])/nopr;end 
else  begin 

xx:=xlow(wliidiHiLo  3]; 

change;=(xhigh[whichHiLo,3]-x]ow[whichHiLo.3])/nopr;end; 

For  j:=l  10  nop  do  begin 


New(TempWorldPoint);TenipWorldPoini^.Next:='Worldpoint]isi; 

WorldPointList:=:TenipWorldPoint; 

If  (xJiigh[WhichHiLo,l]-xlow[WhichHiLo.l])>(xhigh[WhichHiLo,3]-xlow[Which- 
HiLo.3]) 

Then  begin 

ellipseXlX3bonom(xx,Variance,Cvalue.xBarstar,answer); 

WorldPoinlList''.Transform3DPointVar.WorldX:=  Round(  100*  (xx-xBar- 
star  .data!  1,1])); 

WorldPoiniList'^.Transform3DPoiniVar.WorldY:=  0;  {Ybar} 

WorldPointList''.Transform3DPointVar.WorldZ:=  Round(  100*  (answer-xBar- 
star.data[3,l])); 
end 

else  begin 
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ellipseX3X  1  bottom(xx,Variance,Cvalue.xBarsiar.answer); 

WorldPointList''.Transform3DPointVar.WorldX:=  Round(  100*  (answer-xBar- 
star.datafl.l])); 

WorldPoinij-ist''.Transform3DPointVar.WorldY;=  0;  {Ybar) 

WorldPointList''.Transform3DPointVar.WorldZ:=  Round(  100*  (xx-xBar- 
star.da:a[3,l])); 
end; 

WorldPointList''.CoIor:=kolor; 

xx:=xx+change; 

End; 

(*  This  section  calculates  the  points  in  the  X2  vs  X3  ellipse  *) 

If  (xhigh[WhichHiLo.2]-xlow[WhichHiLo,2])>(xhigh[WhichHiLo,3]-xlow[WhichHiLo,3]) 
Then  begin 

xx:=xlow[whichHiLo.2]; 

change;=(xhigh(whichHiLo,21-xlow[whichHiLo.2])/nopr;  end 
else  begin 

xx;=xlow[whichHiLo,3]; 

change;=(xhigh[whichHiLo.3]-xlow[whichHiLo,3])/nopr;  end; 

For  J:=l  to  nop  do  begin 

New(TempWorldPoini);TenipWorIdPoini''.Next:=Worldpointlist; 

WorldPointList:=TenipWorldPoint; 

lf(xhigh[WluchHiLo.2]-xlow[WliichHiLo,2])>(xhigh[WhichHiLo.3]-xlow[Which- 

HiLo.3]) 

Then  begin 

ellipseX2X3top(xx.Variance,Cvalue,xBarstar,answer); 
WorldPoinlLisi''.TransA)rni3DPointVar.WorldX:=  0;  {xBarstar} 
WorldPointLisP'.Transform3DPointVar.WorldY  =  Round(  100*  (xx-xBarstar.data[2,l])); 
'WorldPointList''.Transform3DPoinlVar.WorldZ:=  Round(  100*  (answer-xBar- 
star.dat  a  [3.1])); 
end 

else  begin 

ellipseX3X2iop(xx,Variance,CvaIue.xBarstar  .answer); 
WorldPointList''.Translorm3DPointVar.WorldX;=  0;  (xBarstar) 
WorldPointLisP'.Transfomi3DPointVar.WorldY:=  Round(  100*  (answer-xBar- 
star.data[2,l])); 

WorldPointList''.Transform3DPointVar.WorldZ:=  Round(  100*  (xx-xBarstar.data[3,l])); 
end; 

WorldPointList^.Color:=kolor; 

xx;=xx+change; 

End; 


If  (xhigh(WhichHiLo.2]-xlow|WhichHiLo.2])>(xhigh[WhichHiLo.3]-xlow[WhichHiLo,3]) 
Then  begin 

xx;=xlow[whichHiLo.2]; 
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change:=(xhigh[whichHiLo,2]-xlow[whichHiLo,2])/nopr;  end 
else  begin 

xx;=xlow  [whichHiLo,  3] ; 

change:=(xhigh[whichHiLo,3]-xlow[whichHiLo.3])/nopr;  end; 

For  J:=l  to  nop  do  begin 

New(TempWorldPoint);TempWorldPoint''.Next;=Worldp)ointlist; 

WorldPointList.=TempWorldPoint; 

If(xhigh[WhichHiLo.2]-xIow[WhichHiLo^])>(xhigh[WhichHiLo.3]-xlow[Which- 

HiLo.3]) 

Then  begin 

ellipseX2X3bottom(xx,Variance.Cvalue.xBarsiar.answer); 
WorldPointList^.Transfomi3DPointVar.WorldX;=  0;  {xBarstar} 
WorldPointList^.Transfonn3DPointVar.WorldY:=  Round(  100*  (xx-xBarstar.data[2,l])); 
WorldPointList^.Transform3DPointVar.WorldZ:=  Round(  100*  (answer-xBar- 
star.data[3.1])); 
end 

else  begin 

ellipseX3X2bottom(xx.Variance,Cvalue,xBarstar,answer); 
WoridPointList^.Transform3DPointVar.WorldX:=  0;  {xBarstar) 
WorldPointList^.Transfonn3DPointVar.WorldY:=  Round(  100*  (answer-xBar- 
star.data{2,l])); 

WorIdPointLisi^.Transforni3DPointVar.WorldZ;=  Round!  1(K)*  (xx-xBarstar.data[3,l))); 
end; 

WorldPoiniList^.Color;=kolor; 

xx:=xx+change; 

End; 

end;  (*iP) 

New(TempWorldPoint);TempWorldPoint^.Nexi:=Worldpointlist; 

WorldPointList;=TenipWorldPoint; 

(*  Plot  Centroid  *) 

(*  Note  centroid  is  moved  to  origin  so  it  is  the  point  of  rotation  *) 
WorldPoiniList''.Transl'orm3DPoiniVar.WorldX:=0; 

WorldPoiniList''.Translorm3DPointVar.WorldY:=0; 

WorldPointList''.Transfomi3DPoiniVar.WorldZ:=0; 

WorldPointList''.Color:=white; 

If  (ordchoice=4)  and  (screen=3)  then  begin 

New(TempWorldPoint);TempWorIdPoint''.Next:=Worldpointlist; 

WorldPointList:=TempWoridPoint; 

WorldPointList''.Transform3DPointVar.WorldX:= 

Round!  KK)* !MU.daia[l.l]-xBarstar.data[l,l])); 
WorldPointLisi''.Transform3DPointVar.WorldY:= 

Round!  UK)*  !Mu.data[2.1]-xBarstar.dataI2.1])); 
if  ordp=3  then 

WorldPoiniList^.Transform3DPoiniVar.WorldZ:= 
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Round(  100*  (Mu.daia[3.1]-xBarstar.data[3,l])) 
else 

WorldPointLisi''.Transform3DPointVar.WorldZ:=0; 
WorldPointList''.Color:=whiie;  end; 

If  (ordchoice=5)  and  (screen=3)  then  begin 

New(TenipWorldPoint);TempWorldPoint'^.Next:=Worldpointlisi: 

WorldPointList:=TempWorldPoint; 

WorldPointLisi^.Transform3DPointVar.WorldX:= 

Round(  100*  (txbar.data[l.l]-xBarstar.data[l.l])); 
WorldPointList'^.Transfonn3DPointVar.WorldY:= 

Round(  100*  (txbar.data[2.1]-xBarstar.data[2,l])); 
if  ordp=3  then 

WorldPointList^.Transform3DPointVar.WorldZ:= 

Round(  100*  (txbar.data[3,l]-xBarstar.data[3,l])) 
else 

WorldPointList^.Transforni3DPointVar.WorldZ:=0; 
WorldPointList''.Color:=white;  end; 

End;  (*  Procedure  Ellipses*) 

Procedure  DrawOutlines; 

(*  Draw  lines  for  the  boundaries  around  the  windows.  Make  sure  to  draw  the  *) 
(*  lines  in  all  of  the  buffers  that  we’ll  be  using  (2  buffers  at  most).  *) 

Begin 

For  I:=MaximuniBuffer  Downto  0  Do  Begin 
SetDrawingBufferVar.Buffer:=I; 

(*  This  first  section  draws  the  lines  and  headings  that 
are  common  to  all  screens  *)SeiActivePage(I); 
SetViewPon(M,WindowVertical.WindowHorizontal.true); 

Clear  Viewport; 

AcroMole.SetDrawingBuffer(SetDrawingBufferVar); 

DrawLineVar.Color;=MaximumColor; 

DrawLineVar.ScreenX  1  ;=MinimumScreenX; 

DrawLineVar.ScreenY  1  :=MinimumScreenY; 
DrawLineVar.ScreenX2:=MinimumScreenX; 
DrawLineVar.ScreenY2:=MaximumScreenY; 

AcroMol  e.  Dra  wLi  ne(  Dra  wLi  ne  V  ar ) ; 

DrawLineVar.ScreenX  1  :=MaximumScreenX; 

DrawLineVar.ScreenY  1  :=MaximumScreenY ; 

AcroMole.DrawLine(DrawLineVar); 

DrawLineVar.ScreenX2:=MaximumScreenX; 

DrawLi  neV  ar .  Screen  Y2  :=Mi  ni  mu  mScreen  Y ; 
AcroMole.DrawLine(DrawLineVar); 

DrawLineVar.ScreenX  1  :=MinimumScreenX; 

DrawLineVar.ScreenY  1  :=MinimumScreenY ; 
AcroMole.DrawLine(DrawLineVar); 

DrawLi  ne  V  ar.  ScreenX  1  ;= Window  V  ert  ical ; 

DrawLi  neVar.ScreenX2:=WindowVenical; 

DrawLi  neV  ar.  Screen  Y2  :=Maxi  mumScreenY ; 
AaoMole.DrawLine(DrawLineV  ar); 
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DrawLineVar.  Screen  Y 1  :=WindowHorizontal; 
DrawLi  ne  Var.  ScreenX2  ;=Maxi  mumScreenX ; 
DrawLineVar.ScreenY2;=WindowHorizontal; 
AaoMole.DrawLine(DrawLi  ne  Var) ; 
DrawLineVar.  ScreenX  1  ;=MinimuniScreenX; 
DrawLineVar.ScreenY  1  :=WindowHori2ontal; 
DrawLineVar.ScreenX2:=WindowVertical; 
DrawLi  ne  V ar.  Saeen  Y2  := W indo  wHorizontal; 
AcroMole.DrawLine(DrawLineVar); 

DrawLineVar.  ScreenX  1  ‘.sMinimumScreenX; 
DrawLineVar.ScreenY  1  :=WindowHori2ontal- 1 2; 
DrawLine  V  ar.  ScreenX2  :=Maxi  niu  mScreenX ; 
DrawLineVar.ScreenY2:=WindowHorizontal-12; 
AaoMole.DrawLine(  DrawLineVar); 

DrawLineVar.  ScreenX  1  .sWindowVenical; 
DrawLi  ne  Var.  Screen  Y 1 : =Maxi  niu  niS  cree  n  Y- 1 2 ; 
DrawLineVar.ScreenX2:=MaximuniScreenX; 
DrawLineVar.ScreenY2:=MaxinuimScreenY-12; 
AcroMole.DrawLine(  DrawLi  ne  Var) ; 


End; 


For  I:=MaxiniuniBuner  Downio  0  Do  Begin 
setactivepage(I); 

SetTextJustify(().l); 

SeiColor(  white); 

Case  Ordchoice  of 
1:  Begin 

Gniatwrite(xbar,4.2.#2.\).1.5..5,lightgray.blue.white); 
Gmatwrite(Signia.5,2,#228. 1  .^8.5.1ightgray,blue,white); 
Gmatwrite(SigmabyN..5.2,#228VnM.^().45,lightgray,blue,white); 
Gmatwrite(eigenvalues.5,2,’Lanibda’,3(),8.‘5.1ightgray,blue,white); 
Gmatwriie(Eigenvectors,.^  .2, ’EV’,I49.85,lightgray  .blue,  white); 
GniatWrite(evalstar..5.2.’L.*’.2().125.Iight  gray  .blue,  white); 
GmatWrite(evecstar..5.2.’EV.'*‘’.  140, 12,S.lightgray,blue,  white); 

SetText  Justify  (2.1); 

OutTextXy(635.(maximuniscreeny  div  2+170),’This  Screen  Intentionally  Blank’); 
OutTextXY(200.(niaximuniscreeny  div  2+9.5). ’Screen  2  -  ’#230’,  ’#228); 
C)utTextXy(550.(maximumscreeny  div  2+95),’SCTeen  3’); 

OutTextXY(5.50.7.’ Screen  1  -  ’#230’. ’#228’/N’); 


end;  {choice  1 } 

2,3:  Begin 

Gniatwriie(xbar.4,2.’Xbar’.25.5.lightgray.blue.white); 

Gmatwrite(S,5.2.’S’.138.5.1ighigray.blue.white); 
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Gmatwrite(SbyN,5,2,’S/n’,  1 30.45 .lightgray.blue.whiie); 

Gmatwrite(eigenvalues,5,2,’Lambda’,30,85,lightgray,blue.whiie); 

Gmatwrite(Eigenvectors.5,2.’EVM49,85,light  gray  .blue,  white); 

GmatWrite(evalstar.5,2,’L.*’.20,125.1ightgray.blue,whiie); 

GmatWriie(evecstar,5,2,’EV.*M40,125,lightgray.blue,white); 

SetTextJustify(2,l); 

C)ulTextXY(200,(maxiniunisCTeeny  div  2+95),’SCTeen  2  -  Xbar,  S’); 
OutTextXy(550,(maxiinumscreeny  div  2+95).’Screen  3’); 
OutTextXY(550.7.’Screen  1  -  Xbar.  S/N’);  end; 

4:  Begin 

Gmatwriie(xbar, 4 ,2,’Xbar’. 25,5  .light  gray  .blue,  while); 

Gmatwrite(Mu,5.2,#230, 1 38.5  .lightgray.blue.whiie); 
GmaiWrite(sbyn,5,2,’S/n’,140.45.1ight  gray  .blue,  white); 
Gmatwrite(eigenvalues,5 .2, ’Lanibda’.30.85.1ightgray  .blue,  white); 
Gniatwrite(Eigenvectors.5 .2. ’EY’.  149,85,lightgray  .blue,  white); 
GmatWrite(evalstar,5,2.’L.*’.20,125.1ightgray.blue.white); 
GmatWrite(evecstar.5.2.  ’EY.  *  ’ .  1 4( ),  1 25  .lightgray.blue.white); 
SetTextJustify(2.1); 

OutTextXY(2(K).(niaxiniuniscreeny  div  2+95).’Screen  2  -  S’); 
OutTextXy(5.50.(maxiniuniscreeny  div  2+95).’Screen  3  -  Test  of  Mean’); 
OutTextXY(550.7, ’Screen  1  -S/n’);end; 

5:  Begin 

Gmatwrite(xbar,4.2.#23()’.*’. 25.5. lightgray.blue.white); 

Gmat  write(Mu  .5 .2. #2  30. 1 38 .5  .lightgray  ,bl  ue.  white); 

Gniatwrite(txbar,4.2.#2  30’ .0’.25.45,lightgray  .blue,  white); 
GmatWrite(Signia,5.2.#228,143.45,lightgray.blue.white); 
Gmatwrite(eigenvalues.5,2,’Lanibda’.3(),85,lightgray,blue,white); 

Gmatwri  te(Eigen  veciors,5 .2 .’  E  Y  ’ .  1 49,85  .lightgray.blue.white); 
GmatWrite(evalstar,5 .2. ’L.*’.2().125,lightgray  .blue,  white); 
GniatWrite(S.5,2.’S’,  140, 125. lightgray  .blue,  white); 

SetTextJusiily(2,l); 

OutTextXY(2(K).(niaxiniumscreeny  div  2+95).’Screen  2  -  ’#228’(Red)  &  S’); 
OutTextXy(570.(maximum.screeny  div  2+95),’Screen  3  -  Test  of  Mean  -  S/n’); 
OutTextXY(550.7,’Screen  1  -  ’#228’/n’);  end; 
end; {case} 

End;  {for} 


SetDrawingBufferYar.Buffer:=MaxiniumBuffer; 
AcroMole.SetDrawingBuffer(SetDrawingBufferYar); 
end;  {outlines} 

(*  BEGIN  Main  Program  ■*) 

Begin 

OvrInii(’a3scrloo.OYR’); 

OvrInitEMS; 
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888: 

StartAcroMoIe; 

i:=l; 

Gd:=3;  Gin:=EGAHi; 

InitGraph(Gd.Gm,”); 
errcode  :=GraphResult ; 

If  Grai^esult  <>  grOK  then  begin 

Writeln( 'Graphics  Error  ’,GraphErrorMsg(graphresult)); 

readin;  Halt(l);  end; 

SetBkColor(l);  {Background  Blue} 

TextColor(l); 

(*  set  some  flags  *) 
flagfl  :=false; 
flagf2;=false; 

Flagf3:=false; 

Repeat 

OutTextXY(30.12().’Do  you  wish  to  deal  with  the  Bivariate  Or  MultiVariate  Normal  Distribu¬ 
tion?’); 

OutTextXY(35.145.’Input  2  for  BVN  (2-D)  or  3  for  MVN  (3-D):’); 
repeat 

p:=ReadKey; 
val(P,ordP.code); 
until  (ordp=2)  or  (ordp=3); 
clrscr; 

val(P,ordP.code); 

Case  OrdP  of 
2:  begin 

OutTextXY(7().12().’This  is  the  Case  of  a  Bivariate  Normal  Distribution:’); 
OutTextXY(90,135,’(l)  Study  the  Theoretical  Graphs’); 

OutTextXY(9(),15{).’(2)  Study  Graphs  for  Empirical  Data  Read  from  Disk  (a:\empdata.dat)’); 
OutTextXY(90,165,’(3)  Study  Graphs  from  Empirical  Data  from  Keyboard’); 
OutTextXY(90,180.’(4)  Read  Data  from  a  file  on  disk  (Test  of  Mean  Vector)’); 
OutTExtXY(90.195,’(5)  Theoretical  &  Empirical  Graphs  +  Test  of  Mean’); 

OutTextXY(8().2  lO/Type  the  number  of  choice  (1. 2.  3, 4  or  5)’); 

Repeat 

choice;=Readkey; 

vaI(choice.ordchoice,code); 

until  (ordchoice=l)  or  (ordchoice=2)  or  (ordchoice=3)  or 
(ordchoice=4)  or  (ordchoice=5); 
clrscr;  End;  {case  2} 

3:  begin 

OutTexiXY(70,12(),’This  is  the  Case  of  a  Multivariate  Normal  Distribution:’); 

OulTextXY(90, 1 35. ’(1)  Study  the  Theoretical  Graphs’); 

OutTextXY(90,150,’(2)  Study  Graphs  for  Empirical  Data  Read  from  Disk  (a:\empdata.dat)’); 
OutTextXY(90,165.’(3)  Study  Graphs  from  Empirical  Data  from  Keyboard’); 
C)utTextXY(9(),l  80,’(4)  Read  Data  from  a  file  on  disk  (Test  of  Mean  Vector)’); 
Out'rExtXY(90.195.’(5)  Theoretical  &  Empirical  Graphs  +  Test  of  Mean’); 
C)utTextXY(80.210,’Type  the  number  of  choice  (1. 2.  3. 4  or  5)’); 

Repeat 
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choice;=Readkey: 

val(choice,ordchoice.code); 

until  ((M'dchoice=l)  or  (ordchoice=2)  or  (ordchoice=3)  or 

(ordchoice=4)  or  (ordchojce=5); 

clrscr;  End;  {case  3} 

end;  {case  ordp) 

Iook;=false; 

Case  Ordchoice  of 

1 :  GenerateData(txbar,xdata,S.xhigh.xlow,cvalue,mu,xbar,Iook, 
Eigenvalues.Eigenvectors.SigmabyN,evalstar,evecstar,ordp.signia,sbyn); 

2;  ReadDataEinpiricaI(xdata,S,xhigh,xIow.cvaIue.niu,xbar,]ook, 
Eigenvalues.Eigenvectors.SbyN.evalstar,evecsiar,ordp); 

3:  GeiDataKeyboard(xdata,S,xhigh.xlow,cvalue,mu,xbar,look, 
Eigenvalues.Eigenvectors,SbyN.evalstar,evecstar,ordp); 

4:  ReadDataTest(xdata,S.xhigh.xlow.cvalue,inu,xbar,look, 
Eigenvalues.Eigenvectors.SbyN.evalstar.evecstar,ordp); 

5:  begin  look:=true; 

GenerateDaia(txbar,xdata.S.xhigh.xlow.cvalue,mu,xbar.look, 
Eigenvalues.Eigenvectors.SigniabyN.evalstar.evecstar.ordp.sigma.sbyn); 
end; {begin} 

Else 

GenerateData(txbar.xdata.S.xhigh.xIo\v.cvalue.niu.xbar.look. 

Eigenvalues.Eigenveciors.SigniabyN.evalstar.evecstar.ordp, sigma, sbyn); 

End;  {Case) 


(*  This  Section  determines  what  MND  is  being  looked  at; 

If  Ordchoice  =  1  then  Theoretical 
If  OrdChoice  =  2  or  3  then  Empirical 
If  Ordchoice  =  4  then  Testing  *) 

Case  Ordchoice  of 

I;  Begin 

WorldPointListS3:=niI; 

ellipses(txbar.ordchoice.ordp,xlow,xhigh,Mu,cvalue,Sigma,WorldPointLists2,2.1,2); 
ellipses(ixbar,ordchoice.ordp.xlow,xhigh,Mu,cvalue,SigmabyN,WorldPointLists  1 .3,2, 1 ); 
end; 

2,3:  Begin 

eIIipses(txbar.ordchoice.ordp.xIow.xhigh,Xbar,cvalue.SbyN,WorldPointListsl  ,3,2, 1 ); 
ellipses(txbar.ordchoice.ordp.xlow.xhigh.Xbar,cvalue.S.WorldPointLists2.2,l,2); 
ellipses(txbar.ordchoice.ordp.xlow,xhigh,Xbar,cva]ue.SbyN,WorldPointLists3,2J2,4); 
end; 

4:  Begin 

ellipses(txbar.ordchoice,ordp.xlow,xhigh.Xbar,cvalue.SbyN,WorldPoiniListsl, 3,2,1); 
ellipses(ixbar,ordchoice.ordp.xlow.xhigh,Xbar,cvalue,SbyN.WorldPoiniLists3,2,2.3); 
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ellipses(txbar,ordchoice.ordp,xlow.xhigh,Xbar.cvalue,S,WorldPointLists2,2,l^); 

end; 

S:  Begin 

ellipses(txbar.ordchoice.ordp.xIow,xhigh.Mu.cvalue.Signia.WorldPointLists2,4,l,2); 
elIipses(txbar,ordchoice.ordp.xlow,xhigh,Mu.cvalue,SigmabyN,WorldPointListsl, 4,2,1); 
ellipses(txbar,ordchoice,ordp,xlow,xhigh,Xbar,cvalue,S.WorldPoiniLists2,3.3,2); 
ellipses(txbar,ordchoice,ordp,xlow,xhigh,Xbar,cvalue,Sbyn,WorldPointLists3,3,4,3); 
end; 

end;  (*case*) 


(* - *) 

xmax:=xhigh[l,l];  ymax:=xhigh[l,2];  zniax:=xhigh[1.3]; 
if  (ordchoice=l)  OR  (ordchoice=5)  then 

GenerateAxis(20.0,20.0,20.0,Mu,xhigh,xlow,Sigma,cvalue,eigenvalues) 

else 

GeneraieAxis(2().(),2().().2().().xbar,xhigh.xIow.S.cvalue,eigenvalues); 


(*  This  is  the  top  of  the  main  loop.  *) 

CalculateScaleFactorsVar.ResoluiionX:=ResolutionX; 

CalculateScaleFaciorsVar.ResoluiionY:=ResolutionY; 

CalculateScaleFactorsVar.SizeX:=4; 

CalculateScaleFactorsVar.SizeY:=3; 

CalculateScaleFaciorsVar.ScaIeFacit)rLo;=0; 

CalculateScaleFactorsVar.ScaleFacu>rHi;=550; 

AcroMole.CalculateScaleFacU)rs(CalcuIaieScaleFactorsVar); 

SetRight3DCanieraVar.ScaIeFacU)rX:=CaIculateScaleFaciorsVar.ScaleFactorX; 
SetRight3DCameraVar.ScaIeFaciorY:=CalculateScaleFactorsVar.ScaleFaciorY; 
SetRight  3DCamera  Var .  Perspecii  ve:=  1  ( X  K ); 

CalculateScaleFactorsVar.  Resol  utionX  :=ResolutionX; 
CalculateScaleFaciorsVar,ResoiuiionY:=ResolutionY; 
CalculateScaleFactorsVar.SizeX;=4; 

Calcul  ateScaleFactors  V  ar .  Si  ze  Y : = 3 ; 
CalculaieScaleFaciorsVar.ScaIeFactorLo:=(); 
CalculateScaleFactorsVar.ScaleFactorHi:=55(); 
ACToMole.CalculateScaleFactorsfCaleulaieScaleFaclorsVar); 

SetLeft3DCameraVar.ScaIeFac(orX:=CaIculateScaleFactorsVar.ScaleFactorX; 

SetLeft3DCameraVar.ScaleFactorY:=CalculaieScaleFactorsVar.ScaleFactorY; 

SetLeft3DCameraVar.Perspective:=l(KX); 

WindowHorizontal:=(MaximumScreenY+MinimumScreenY)  Div  2; 
WindowVertical:=(MinimumScreenX+2*MaximumScreenX)  Div  22; 

(*  Calculate  the  position  of  the  left  hand  window.  *) 

WindowWidth  := W i  ndow  Vertical  -Mi  niniumScreenX- 1 ; 
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WindowHeight:=MaximumScreenY-MininiumScreenY-l; 
SeiLefiWindowVar.MininiumFilniX:=-(WindowWidih  Div  2); 

SetLeftWindowVar.MaximumFilniX:=SeiLeftWindowVar.MimmumFilinX+WindowWidth-l; 
SetLeftWindowVar.MinimumFilmY:=-(WindowHeight  Div  2)+80; 
SetLeftWindowVar.MaxiinumFilniY:=SetLefitWindowVar.MinimumFilmY+(WindowHeight 
div  2)- 13; 

SetLeftWindowVar.MimtnumScreenX;=MinimumScreenX+ 1 ; 
SetLeftWindowVar.MinimumScreenY:=MinimumScreenY+ 1 ; 

(*  Calculate  the  position  of  the  upper  right  window.  *) 

WindowWidth:=MaximumScreenX-WindowVertical-l: 
WindowHeight;=MaximumScreenY-WindowHorizontal-l; 
SetUpperWindowVar.MininiuniFilmX;=-(WindowWidth  Div  2); 
SetUpperWindowVar.MaximumFilniX;=SetUpperWindowVar.MinimumFilmX+Window- 
Widlh-1; 

SetUpperWindowVar.MinimumFiImY:=-(WindowHeight  Div  2); 

SetUpperWindowVar.MaximuniFilniY:=SetUpperWindowVar.MininiumFilniY+Window- 

Height-13; 

SetUpperWindo\vVar.MinimumScreenX:=WindowVertical+l; 

SelUpperWindowVar.MinimuniScreenY:=WindowHorizonial+l; 


(*  Calculate  the  position  of  the  lower  right  window.  *) 

WindowHeight:=WindowHorizontal-MinimumScreenY-l; 
SetLowerWindowVar.MiruniuniFiImX:=-(WindowWidth  Div  2); 
SeiLowerWindowVar.MaxiniuniFilniX;=SetLowerWindowVar.MininiumFilmX+Window- 
Width-1; 

SetLowerWindowVar.MinimuniFilmY;=-(WindowHeight  Div  2); 
SelLowerWindowVar.MaxiniuniFilmY:=SetLowerWindowVar.MininiumFilmY+Window- 
Height- 13; 

SetLowerWindowVar.MinimumSereenX;=WindowVertical+l; 
SetLowerWindowVar.MiniinumScreenY  :=MinimumScreenY+ 1 ; 

SetFullWindowVar.MininiumFilniX;=MinimumScreenX+l; 
SetFullWindowVar.MaxiniumFilniX:=MaxiniumscreenX-l; 
SetFullWindowVar.MinimumFilmY  ;=MininiumScreenY+ 1 ; 
SeiFullWindowVar.MaximumFilmY:=MaxiniumScreenY-l; 
SetFullWindowVar.MinimuniScreenX:=MininiumScreenX+l; 
SetFullWindowVar.MinimumScreenY:=MininiumScreenY+ 1 ; 

DrawOutlines; 

Repeat 

(*  Set  the  clipping  window  for  the  left  hand  window  *) 
AcroMole.SetWindow(SetLertWindowVar); 

(*  Set  the  camera  position  for  a  front  view.  *) 
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SetLeft3DCameraVar.WorldX:=-Round(Distance*MatrixI0,2]); 

SetLeftSDCameraVar.WorldY  :=-Round(Disiance*Matrixi  1 ,2]); 

SetLeft3DCameraVar.WorldZ:=-Round(Distance*Matrix[2,2]); 

SetLeft3DCaineraVar.DirectionX:=Round(Matrix[0.2]); 

SetLeft3DCameraVar.DirectionY;=Round(Matrix[  1 .2]); 

SetLeft3DCameraVar.DirectionZ:=Round(Matrixl2,21); 

SetLeft3DCaineraVar.UpX:=Round(Matrix[0,l]); 

SetLeR  3DCamera  V  ar.UpY  :=Round(Matrix  [1.1]); 
SetLeft3DCameraVar.UpZ:=Round(Mairix{2,ll); 
ACToMole.Set3DCamera(SetLeft3DCameraVar); 

(*  Transform  and  clip  the  points.  *) 

TransfonnAndClip(WorIdPointLists2.WorldEndPointList,WorldLineList); 
(*  Set  the  clipping  window  for  the  upper  right  window.  *) 
AcroMole.SetWindow(SelUpperWindowVar); 

(*  Set  the  camera  position  for  a  top  view.  *) 


(♦  Transform  and  clip  the  points.  *) 

TransformAndClip(WorldPoimListSl.WorldEndPointList.WorldUneList); 


(*  Set  the  clipping  window  for  the  lower  right  window.  *) 

AcroMoIe.SetWindow(SetLowerWindowVar); 

(*  Set  the  camera  position  h)r  a  right  side  view.  *) 

(*  Transform  and  clip  the  points.  *) 

If  ordchoice=  1  then 

TransformAndClip(nil,nil.nil) 

else 

TransforniAndClip(WorldPointLists.3,WorldEndPointList,WorldLineList); 

(*  Draw  the  transformed  points  on  the  screen.  *) 

UpdateScreen; 

(*  Get  the  keyboard  status  and  the  change  in  time.  '*') 

GetStatus; 

(*  Based  on  the  keys  pressed  down,  and  the  change  *) 

(*  in  time,  update  the  angles  and  distance.  *) 

Angle:=Speed*DeliaTime;  SinPositiveAngle:=Sin{Angle);  CosAngle:=Cos(Angle): 
DeltaDistance:=0..5*Speed*DeItaTime; 
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If  Right  ArrowFlag  Xor  LeftArrowFlag  Then  Begin 
If  RightArrowFlag  Then  SinAngle;=SinPositiveAngle 
Else  SinAngle:=-SinPositiveAngle: 

TempReal:=Matrix[0,0]; 

Matrix[0,0]:=CosAngle*Matrix[0,0]-SinAngle*MatrixI0,2]; 
Matrix[0,2]:=SinAngle*TempReal+CosAngle*Mairix[0.2]: 
TempReaI:=Matrix[  1 ,0]; 

Matrixl  1 ,0]  :=CosAngle*Matrix[  1 ,0]-SinAngle*Matrix[  1 ,2] ; 
Matrix!  1 ,2]  :=SinAngle’*'TempReal+Cos  Angle*MatrixI  1,2]; 
TempReal  :=Matrix[2.0] ; 

Matrix[2,0]:=CosAngle*Matrix(2.()]-SinAngle*MatrixI2,2]; 
Matrix[2,2]:=SinAngle*TenipReal+CosAngle*MatrixI2,2];  End; 

If  UpArrowRag  Xor  DownArrowRag  Then  Begin 
If  UpArrowRag  Then  SinAngle:=SinPositiveAngle 
Else  SinAngle;=-SinPositiveAngIe; 

TempReal  :=MatrixlO,l  ]; 

Matrix[0,l]:=CosAngle*Matrix[0.1]-SinAngle*Matrix[0.2]; 
MatrixI0,2]:=SinAngle*TempReal+CosAngle*Matrix[0.2]; 
TempReal;=Matrix(l  .1  ]; 

Matrix[  1,1]  :=CosAngle*Matrix  [  1 . 1  ]-SinAngle*Matrix[  1 ,2] ; 
Matrix!  1. 2]  :=SinAngle*TempReaI+CosAngle*Matrixl  1,2]; 
TempReal  ;= Matrix  (2,1]; 

Matrix[2,l];=CosAngle*Mairix[2,l]-SinAngle*Matrix(2,2]; 
Matrix!2,2]:=SinAnglc*TempReal+CosAngle*Mairix[2,2];  End; 

If  PgUpRag  Xor  PgDnFIag  Then  Begin 
If  PgUpRag  Then  SinAngle:=SinPi)siiiveAngle 
Else  SinAngle:s:-SinPosiiiveAngle; 

TempReal  :=Matri  x  [(),()] ; 

Matrix[U,0]  :=CosAngle*Matri  x(().()]-Si  nAngle*Mairix[0, 1  ] ; 
Matrix!o,l]:=SinAngle*TempReai+CosAngle*Matrix[0.1]; 
TempReal  :=Matrix(l ,()]; 

Matrix]  1 ,0]  :=CosAngIe*Matrix(  1  .()]-Sin  Angle*Matrix{  1,1]; 
Matrix!  1 . 1  ]:=SinAngle*TempReaI+CosAngle'*‘Matrix[  1,1]; 
TempReal  :=Mairix  (2 ,0] ; 

Matrix[2,0]:=CosAngle*Matrix(2,()]-SinAngle*Matrix[2,l]; 
Matrix!2,l]:=SinAngle*TenipReal+CosAngle’*'MatrixI2,l];  End; 


(*  This  section  checks  to  see  if  FI ,  F2  Or  F3  has  been  pressed 
If  so  screen  1 , 2  or  3  is  inlarged  and  displayed  as  the 
only  screen.  ESC  returns  all  previous  screens  *) 

If  FI  Rag  or  F2Rag  or  F3Rag 

Then  begin  (*  display  one  large  screen  *) 

Ragfl:=flflag; 

Ragl2;=f2flag; 

Ragf3:=f3nag; 

(*  First  Clear  Screen  in  both  buffers  *) 

For  I-.=MaximumBuffer  Dtiwnto  0  Do  Begin 
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SetDrawjngBufferVar.Buffer:=I; 
AcroMole.SetDrawingBuffer(SetDrawingBufferVar); 
DrawRectangleVar.ScreenX  1  :=MiniinuniScreenX; 

DrawReciangleVar.ScreenY  1  :=MinimumScreenY ; 
DrawRectangleVar.ScreenX2:=MaxiniumScreenX: 
DrawRectangleVar.StTeenY2:=MaximumScreenY; 

DrawRectangleVar.color:=blue;AcroMole.DrawRectangle(DrawRectangleVar); 

end; 

(*  Now  display  and  rotate  single  screen  *) 

Repeat 

(*  Draw  the  transformed  points  on  the  screen.  *) 

AcroMole.SetW  indow(SetFull  W  indow  V  ar); 

(*  Set  the  camera  position  for  a  Full  view.  *) 


SetLeft.'lDCameraVar.WorldX:=-R()und(Disiance*Mairix[0.2]); 

SetLeft3DCameraVar.WorldY:s=-Round(Distance*Matrix[l,2]); 

SetLeft.^DCameraVar.WorldZ:=-Round(Distance*MatrixI2,2]); 

SetLefl3DCameraVar.DirectionX:=Round(Malrix[0.2]); 

SetLefit3DCameraVar.DirectionY:=Round(Mairix[1.2]); 

SetLefi3DCameraVar.DireciionZ:=Round(Matrix(2,2]); 

SetLefi  3DCamera  Var  .UpX  ;=Round(MatrixlO.  1  ]); 
SetLefi3DCameraVar.UpY;=Round(Matrix(l.l]); 
SetLeft3DCameraVar.UpZ:=Round(Matrix[2.1)); 
AcroMole.Set3DCamera(SciLefi3DCameraVar); 


(*  Transform  and  clip  the  pt)inis.  *) 

If  flagfl  then 

Transform  AndCIip(WorldPoiniListsl.WorldEndPointList.WorldLineList); 
If  FlagF2  then 

TransformAndClip(WorldPv«ntLists2,WorldEndPoiniList.WovldLineList); 
If  FlagF3  then 

Transform  AndClip(WorldPoiniLisis3.WorldEndPointList,WorldLineList); 


UpdateScreen; 

(*  Get  the  keyboard  status  and  the  change  in  time.  *) 

GetStatus; 

(*  Based  on  the  keys  pressed  down,  and  the  change  *) 

(*  in  time,  update  the  angles  and  distance.  *) 

Angle:=Speed*DeltaTime;  SinPositiveAngle:=Sin(Angle);  CosAngle:=Cos(Angle): 
DeltaDistance:=0..5*Speed*DeItaTime; 

If  RightArrowFIag  Xor  Left  ArrowFlag  Then  Begin 
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If  Right ArrowRag  Then  SinAngle:=SinPositiveAngle 
Else  SinAngle:=-SinPosiiiveAngle; 

TempReal  :=Matrix  [0,0] ; 

Matrix[0,0]:=CosAngle*Mairix[0.0]-SinAngle*Matrix[0,2]; 
Matrix[0,2]:=SinAngle*TempReaI+CosAngle*Matrix[0,2]; 
TempReal  :=Mairix  [  1 ,0] ; 

Matrix[  1 ,0]  :=Cos  Angle*Matrix[  1 ,0]-Sin  Angle*Matrix[  1 ,2] ; 
Matrix!  1 ,2]  :=SinAngle*TempReal+CosAngle*Matrix[  1 ,2]; 
TempReal  :=Matrix[2,0] ; 

Matrix[2,0]  :=CosAngle'''Matrix(2,0]-SinAngle*MatrixI2,2] ; 
Matrix[2,2]:=SinAngle*TempReaI+CosAngle*Matrix[2,2];  End; 

If  UpArrowRag  Xor  DownArrowRag  Then  Begin 
If  UpArrowRag  Then  SinAngle:=SinPositiveAngle 
Else  Sin Angle;=-SinPositive Angle; 

TempReal  :=Matrix(0,l  ]; 

Matrix[0. 1  ]  :=CosAngIe*Matrix[0, 1  ]-SinAngle*Matrix[0.2] ; 
Matrix(0,2]:=SinAngle*TempReal+CosAngle*MatrixI0.2]; 
TempReal:=Malrixn,l]; 

Matrix!  1 . 1  ]  :=Cos  Angle^Matrix  [  1 . 1  ]-Sin  Angle*Matrix!  1 .2] ; 
Matrix!  1 .2]  ;=SinAngle*TempReal+CosAngle*Matrix!  1 ,2]; 
TempReal  :=Matrix[2.1]; 

Matrix!2,l]:=CosAngle*Mairix[2.1]-SinAngle*Matrixl2,2]; 
Matrix[2.2];=SinAngle*TempReal+CosAngle*Matrix!2,2];  End; 

If  PgUpRag  Xor  PgDnRag  Then  Begin 
If  PgUpRag  Then  SinAngle;=SinPosiliveAngle 
Else  SinAngle;=-SinPositiveAngle; 

TempReal  :=MatrixI(),0] ; 

Matrix!0.0]:=CosAngle*Matrix[().()]-SinAngle*Matrix!0.1]; 
Matrix[0, 1  ]  :=SinAngle*TempReal+CosAngle*Matrix!0, 1  ]; 
TempReal  :=Matri  x!  1 .0] ; 

Matrix!  l,0]:=CosAngle*Matrix[1.0]-SinAngle*MatrixI  1,1]; 
Matrix!  1 , 1  ];=SinAngIe*TempReal+CosAngle*Matrix!  1,1]; 
TempReal  :=Mairi  x  [  2 .0] ; 

Matrix!2,0]:=CosAngle*Mairix[2,()]-SinAngle*Matrix!2.1]; 
Matrix[2, 1  ]  :=SinAngIe*TempReaI+CosAngle*Matrix!2, 1  ];  End; 


If  MinusRag  Then  Distance:=Disiance-DeltaDisiance; 

If  RusRag  Then  Distance:=Disiance+DeltaDistance; 

If  Distance>  1 .0  Then  Distance:=  1 .0 
Else  If  Distance0.(K)l  Then  Distance:=0.001; 

If  HomeRag  Then  Begin  Distance:=0.7; 

For  I:=0  To  2  Do  For  J:=0  To  2  Do 
If  I=J  Then  Matrix!l.J]:=32760.0  Else  Matrix[I.J]:=().0;  End; 

(*  Keep  looping  till  the  user  presses  CTRL  and  BREAK,  CTRL  and  C,  or  ESC.  *) 

Until  ExitRag; 
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ExitFIag:=false;  (*  reset  flag  so  program  does  not  end  *) 
flagfl  :=false; 
flagf2:=false; 

Flagf3:=false; 

MaximumBuffer:=l ; 

(•  clear  sCTeen  again  *) 

For  I:=MaximumBuffer  Downto  0  Do  Begin 
SetDrawingBufferVar.Buffer;=I; 
ACToMole.SetDrawingBuffer(SetDrawingBufferVar); 

DrawRectangleVar.SaeenX  I  :=MinimumScreenX; 

DrawRectangleVar.ScreenY  1  :=MinimumScreenY ; 
DrawRectangleVar.SaeenX2:=MaximumScreenX; 

DrawRectangle  V  ar  .Screen  Y2  :=M  axi  mu  mScreen  Y ; 

DrawRectangleVar.color:=blue;AcroMole.DrawReciangle(DrawRectangleVar); 

end; 

(*  clear  screen  again  *) 

For  l;=MaximumBufter  Downto  0  Do  Begin 
SetDrawingBuflerVar.Bufler:=I; 
AcroMole.SetDrawingBulTer(SeiDrawingBufferVar); 

DrawRectangleVar.ScreenX  1  ;=MinimumScreenX; 
Draw'RectangleVar.ScreenYl;=MinimumScreenY; 
Draw'RectangleVar.ScreenX2:=MaximumScreenX; 
DrawRectangleVar.SrreenY2:=MaximumScreenY; 

DrawReciangleVar.coIor:=blue:AcroMole.DrawRectangle(DrawRectangleVar); 

end; 

DrawOullines;  (*  Setup  screen  lor  original  look  *) 
end;  (if  f#flag} 

If  MinusFlag  Then  Distance:=Distance-DeliaDistance; 

If  PlusFlag  Then  Distance:=Distance+DeliaDistance; 

If  Distance>  1 .0  Then  Distance;=  1 .0 
Else  If  DistanceO.OOl  Then  Distance:=0.(X)l; 

If  HomeFlag  Then  Begin  Distance  ;=().  7; 

For  I:=0  To  2  Do  For  J:=fl  To  2  Do 
If  I=J  Then  Matrix[l.J]:=.'1276().{)  El.se  Mairix[I,J]:=0.0;  End; 


If  fl2Flag  then  begin 
(*  clear  screen  again  *) 

For  I:=MaximumBuffer  Dow'nto  0  Do  Begin 
SetDrawingBufferVar.Buffer;=l; 
AcroMole.SetDrawingBuffer(SetDrawingBufferVar); 

DrawRectangleVar.ScreenX  1  ;=MinimumScreenX; 
DrawRectangleVar.ScreenY  1  :=MinimumScreenY; 
DrawRectangleVar.ScreenX2:=MaximumScreenX; 
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DrawRectangleVar.ScreenY2;=MaximumScreenY; 

DrawRectangleVar.color:=blue;AcroMole.DrawRectangle(DrawRectangleVar); 

end; 

StopAcroMole; 

CloseGraph; 


Dispose(@WorldPointLisi); 
Disposed  @  WorldEndPointList); 
Disposed  ©WorldLineList) ; 
Disposed  @WorldPoiniListS  1 ); 
Disposed  @WorldPointListS2); 
Dispose(@WorldPoii.tListS3); 


worldpointlist:=nil; 
worldendpoimlist:=nil; 
worldlinelist:=nil; 
worldpointlistsl  :=nil; 
worldpointlisis2  :=nil ; 
worldpointlists3:=nil; 

Release(HeapOrg); 

Distance:=0.7; 

For  I:=0  To  2  Do  For  J:=()  To  2  Do 
If  I=J  Then  Ma(rix[I..Il;=3276().()  Else  Mairixf!..?];=-0.0; 
goto  888;  (*  Restart  Program  *) 
end;  {if  fl2Flag  } 

(*  Keep  looping  till  the  user  presses  CTRL  and  BREAK.  CTRL  and  C,  or  ESC.  *) 

Until  ExitFlag;  (*  f#Flag  test  Repeat  *) 

(*  Shut  down  AcroMole  before  returning  to  DOS.  *) 

Until  ExitFlag;  (*  Main  Program  Repeal  *) 

StopAcroMole; 

CloseGraph; 

Gd:=2;  Gm:=VGAHi; 

InitGraph(Gd.Gm.’  ’); 

closegraph; 

End. 
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The  first  unit  is  MathStuff.  This  unit  contains  the  following  functions: 

1 .  Ellipse  xlx2  Top  -  Returns  x2  on  the  bottom  half  of  ellipse  for  a  given  xl. 

2.  Ellipse  xlx2  Bottom  -  Returns  x2  on  the  bottom  half  of  ellipse  for  a  given  xl. 

3.  Ellipse  xlx3  Top  -  Returns  x3  on  the  bottom  half  of  ellipse  for  a  given  xl. 

4.  Ellipse  xlx3  Bottom  -  Returns  x3  on  the  bottom  half  of  ellipse  for  a  given  xl. 

5.  Ellipse  x2x3  Top  -  Returns  x2  on  the  bottom  half  of  ellipse  for  a  given  xl. 

6.  Ellipse  x2x3  Bottom  -  Returns  x2  on  the  bottom  half  of  ellipse  for  a  given  xl. 

Unit  MathStuf; 

{$F+} 

{$0+} 

Interface 

Uses  Graph.Crt.Mathmat; 

Procedure  EllipseX  lX2Top(var  xx:real;sigmaSiar:mathmat.matx;cvalue:mathmat.matx;xbar- 
starmathmat.matx; 

var  answer:real);  (*  Creates  Points  for  X 1  vs  X2  Ellipse*) 

Procedure  EllipseX  lX2Bottoni( var  xx:real;sigmaStar:mathmat.matx;cvalue:mathmat.matx;xbar- 
star:mathmat.maix; 

var  answer:real);  (*  Creates  Points  for  X 1  vs  X2  Ellipse*) 

Procedure  EllipseXlX.3Top(var  xxireal;  signiaStar:mathmat.matx; 
cvalue:mathmai.niatx;  xbarstarimathmat.matx; 
var  answerrreal);  (*  Creates  Points  for  X 1  vs  X3  Ellipse*) 

Procedure  EllipseX  lX3Bottoni( var  xx:real;sigmaSiar:mathmat.matx;cvalue:mathmat.matx;xbar- 
star:mathmat.matx; 

var  answerireal);  (*  Creates  Points  for  X 1  vs  X3  Ellipse*) 

Procedure  EllipseX2X3Top{var  xx:real;sigmaStar:maihmat.matx;cvalue:mathmat.matx;xbar- 
star:mathmat.matx; 

var  answer:real);  (*  Creates  Points  for  X2  vs  X3  Ellipse*) 

Procedure  EllipseX2X3Bottoni(var  xx:real;sigmaStar:mathmat.matx;cvalue:mathmat.matx;xbar- 
star:mathmat.matx; 

var  answer:real);  (*  Creates  Points  for  X2  vs  X3  Ellipse*) 


Procedure  EllipseX2XlTop{  var  xx:real;signiaStar:mathmat.matx;cvalue:mathmat.matx;xbar- 
startmathmat.matx; 

var  answerireal);  (*  Creates  Points  for  X2  vs  Xl  Ellipse*) 

Procedure  EllipseX2X  1  Bottom(  var  xx:real;sigmaSiar:mathmat.matx;cvalue:mathmat.matx;xbar- 
star:mathmat.matx; 

var  answer:real);  (*  Creates  Points  for  X2  vs  Xl  Ellipse*) 

Procedure  EllipseX3XlTop(var  xx:real;sigmaStar:mathmai.matx; 
cvalue:maihmat.matx;xbarsiar;mathniat.malx; 
var  answer:real);  (*  Creates  Points  for  X3  vs  Xl  Ellipse*) 
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Procedure  EllipseX3X  1  Bottom(var  xx:real;sigmaStar:matliinat.matx;cvalue:mathmat.matx;xbar- 
starrmathmat.matx; 

var  answer:real);  (*  Creates  Points  for  X3  vs  XI  Ellipse*) 

Procedure  EllipseX3X2Top{var  xx:real;sigmaStar:mathmat.matx;cvalue:mathmat.matx;xbar- 
star:mathmat.matx; 

var  answer;real);  (*  Creates  Points  for  X3  vs  X2  Ellipse*) 

Procedure  EllipseX3X2Botiom(  var  xx:real;sigmaStar;mathmat.matx;cvalue:mathmat.matx;xbar- 
starrmathmat.matx; 

var  answerrreal);  (*  Creates  Points  for  X3  vs  X2  Ellipse*) 


Implementation 

Procedure  EllipseX  lX2Top(var  xx;real;sigmaStar:mathmat.matx;cvalue:mathmat.matx;xbar- 
star:mathmat.matx; 
var  answer:real); 


Var 

x2a,x2b,x2c.A  1  .A2,A3,A4,A5.A6.A7:Real; 

Begin 

x2a:=(sigmaStar.data[  1 .2]  *sigmaStar.data(  1 ,2))-sigmaStar.data[  1 .1  ]*sigmaStar.data[2,2]: 

x2b;=2.0*sigmaStar.daian.ll*sigmaStai.clatal2.2)-2.0*(sigmaStar.daia[1.2]*sigmaS- 

tar.data[l,2]); 

x2c:=(sigmaStar.data(1.2]*sigmaStar.data[  l,2])-signiaStar.data[l,l]*sigmaStar.data[2,2); 

A1  ;=-sigmaStar.data[  1 , 1  ]*xbarstar.data[2. 1  ]; 

A2:=x2a*(xbarstar.data[  1 . 1  ]*xbarsiar.data[  1,1]); 

A3:=x2b*xx*xbarstar.data[  1.1]; 

A4:=x2c*(xx*xx); 

A5:=(cvalue.data[  1 ,1  ]*cvalue.data[  1 , 1  ])*(sigmaStar.data[  l.l]*sigmaStar.data[  l,l])*sigmaS- 
tar.data[2,2]; 

A6:=-sqr(cvalue.data[  1 , 1  ])*sigmaStar.data[  1 , 1  ]*sqr(sigmaSiar.data[  1,2]); 
A7:=sigmaStar.data[  1 ,2]*xbarstar.data[  1 ,1  ]-sigmaSiar.data[  l,2]*xx; 


answer:=-(Al+Sqri(A2+A3+A4+A5+A6)+A7)/sigmaStar.data[l,l]; 

End; 

Procedure  EllipseX  lX2Bottom( var  xx:real;sigmaStar:matlimat.matx;cvalue:mathmat.matx;xbar- 
star;mathmat.matx; 
var  answer:real); 


Var 

x2a,x2b,x2c.A  1  .A2.A3,A4,A5.A6,A7;Real; 
Begin 
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x2a:=sqr(siginaStar.data[  1 ,2])-sigmaStar.data[  1 ,1  ]*sigmaStar.data[2,21; 
x2b:=2.0''‘sigmaStar.daia[  1 , 1  ]*sigmaStar.data[2,2]-(2.0*sqr(siginaStar.data[  1 ,2])); 
x2c:=sqr(siginaStar.data[  1 .2])-(sigmaStar.data[  1 .1  ]*sigmaStar.data[2,2]); 

A 1  ;=-sigmaStar.data[  1,1]  *xbarstar.data[2, 1  ]; 

A2:=x2a'*sqr(xbarstar.data[  1 , 1  ]); 

A3:=x2b*xx*xbarstar.data[l.l]; 

A4;=x2c*sqr(xx); 

A5:=sqr(cvalue.data{  1 , 1  ])*sqr(signiaStar.data[  1 , 1  ])*sigmaStar.dataI2,2] ; 

A6:=-l  *sqr(cvalue.data[  1 .1  ])*sigmaStar.data[  1  .l]*sqr(sigmaStar.data[  1,2]); 
A7:=signiaStar.data[  1 ,2]*xbarstar.daia(  1 , 1  ]-(sigmaStar.data[l  ,2]*xx); 

answer  :=(-Al+Sqrt(A2+A3+A4+A5+A6)-A7)/sigmaStar.data[  1,1]; 

End; 

Procedure  EllipseX  lX3Top(  var  xx:real;sigmaStar:mathniat.niatx;cvalue:mathmat.inatx;xbar- 
starimathmat.matx; 
var  answer:real); 


Var 

x3a,x3b,x3c,Al.A2,A3.A4.A5.A6,A7;Real; 

Begin 


x3a:=sqr(sigmaStar.data(  1 .3])-sigmaSiar.daia{  l,l]*sigmaSiar.data[3,3]; 
x3b:=2.0*sigmaStar.data[  1 , 1  ]*signiaStar.daia[3,3]-2.0*sqr(sigmaStar.data[  1 ,3]); 
x3c:=sqr(signiaSiar.data(1.3])-sigmaSiar.data[l,l]*sigmaStar.data[3,3]; 

A1  :=-sigmaStar.data[  1 , 1  ]*xbarstar.data[3. 1  ]; 

A2;=x3a*sqr(xbarstar.data(  1.1]); 

A3;=x3b*xx*xbarsiar.data(  1 . 1  ]; 

A4:=x3c*sqr(xx); 

A5:=sqr(cvalue.data[l,l])*sqr(signiaSiar.data[l,l])*sigmaSiar.data[3,3]; 

A6:=-sqr(cvalue.data[  1 , 1  ])*signiaStar.daia[  1 ,1  ]*sqr(signiaSiar.datai  1,3]); 

A7:=signiaSiar.data[  1 .3]*xbarstar.daia[  1 , 1  ]-sigmaSlar.data[  1 ,3]*xx; 

answer  :=-(  A 1 +Sqn(  A2+ A3+ A4+ A5+ A6)+ A7)/sigmaStar.data[  1.1]; 

End; 

Procedure  EllipseX lX3Botiom( var  xx;real;sigmaSiar:mathmat.matx;cvalue:mathmat.matx;xbar- 
star.maihmat.matx; 

var  answerrreal); 

Var 

x3a,x3b,x3c,A  1  .A2,A3.A4.A.5.A6,A7:Reai; 

Begin 


x3a:=sqr(signiaStar.data[  1 .3])-(signiaStar.data(  1 . 1  ]*sigmaStar.data[3,3]); 

x3b:=(2.0*sigmaStar.data[l.l]*sigmaStar.data[3.3])-2.0*sqr(sigmaStar.data[l,3]); 

x3c:=sqr(sigmaSiar.data[1.3])-sigmaStar.data[l,l]*sigmaStar.data[3.3]; 
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Al:=*siginaStar.data[  1 . 1  ]*xbarstar.data[3.1  ]; 

A2:=x3a*sqr(xbarstar.daial  1.1]); 

A3:=x3b*xx*xbarstar.data[  1,1]; 

A4:=x3c*sqr(xx); 

A5:=sqr(cv^ue.data[  1 , 1  ])'*'sqr(sigmaStar.data[  1 ,1  ])'*'signiaStar.data[3.3]; 
A6:=-sqr(cva]ue.data[  1 , 1  ])*sigmaStar.data[  1 . 1  ]*sqr(siginaStar.data[  1 .3]); 
A7:=sigmaStar.data[  1 .3]*xbarstar.daia[  1 . 1  ]-sigmaStar.data[  1 .3]*xx; 

answer:=(-A  1  +Sqrt(  A2+ A3+ A4+ A5+ A6)- A7)/signiaStar.data[  1,1]; 

End; 


Procedure  EllipseX2X3Top(var  xx:rea];sigmaStar:mathmat.inatx;cvalue;matlunat.matx;xbar- 
starimathmat.matx; 
var  answer:real); 


Var 

x3a,x3b,x3c.Al.A2,A3,A4.A5,A6,A7:Real; 

Begin 

x3a:=sqr(sigmaStar.data(2,3])-signiaSiar.data[2.2]*sigmaStar.data[3,3]; 

x3b:=2.0*sigmaStar.data[2.2]*signiaSiar.data[3,3]-2.0*sqr(sigmaStar.data[2,3]); 

x3c:=sqr(sigmaSiar.data[2,3])-sigmaStar.data[2.2]*siginaStar.data[3,3]; 

Al:=-sigmaStar.data[2.2]*xbarstar.daiaI3.1]; 

A2:=x3a*sqr(xbarstar.daia[2.11); 

A3:=x3b*xx*xbarsiar.data[2.l]; 

A4;=x3c*sqr(xx); 

A5:=sqr(cvalue.daia[l,l])*sqr(signiaSlar.daia[2,2])*sigmaStar.data[3.3]; 

A6:=-sqr(cvalue.data[l,l])*sigmaSiar.data[2.2]*sqr(sigmaStar.datai2.3]); 

A7:=sigmaStar.daia(2.3]*xbarstar.data(2.1]-sigmaSiar.data[2,3]*xx; 

answer:=-(Al+Sqrt(A2+A3+A4+A5+A6)+A7)/signjaStar.data[2,2]; 

End; 

Procedure  EllipseX2X3Bot(om(  var  xx:real;sigmaStar:mathinat.matx;cvaIue;mathmat.matx;xbar- 
star:mathmat.matx; 
var  ans\ver;real); 


Var 

x3a,x3b,x3c,Al,A2.A3.A4,A5.A6.A7;Real; 

Begin 


x3a;=sqr(sigmaStar.data[2,3])-sigmaStar.data[2.2]*sigmaStar.data[3,3]; 

x3b:=2.0*sigmaSiar.data[2,2]’*‘sigmaStar.daia[3,3]-2.0*sqr(sigmaStar.data[2.3]); 

x3c:=sqr(sigmaStar.data[2,3])-sigmaStar.data[2.2]*signiaStar.data[3.3]; 

Al;=-sigmaStar.data[2,2]'*'xbarstar.data[3.1]; 

A2:=x3a'''sqr(xbarsiar.da!a[2. 1  ]); 

A3;=x3b*xx*xbarstar.datai2.1  ]; 


A4:=x3c*sqr(xx); 

A5:=sqr(cvalue.data[l,l])*sqr(sigmaStar.data[2.2])*sigmaStar.data[3,3]; 
A6:=-sqr(cvalue.data[  1 ,1  ])*sigmaStar.data[2.2]*sqr(sigmaStar.data[2.3i); 
A7:=sigmaSlar.datal2,31*xbarstar,data[2.li-sigmaSiar.data[2,31*xx; 

aiiswer:=(-A  1 +Sqrt(  A2+A3+ A4+ A5+ A6)-A7)/sigmaStar.data[2,2] ; 

End; 

Procedure  EIIipseX2X  1  Top(var  xx:real;sigmaStar;inathmat.matx;cvaIue:mathinat.inatx;xbar- 
star:inathinat.inatx; 
var  answer:real); 


Var 

x2a,x2b,x2c,  A 1 .  A2.  A  3 ,  A4,  A5 ,  A6.  A7 :  Real ; 

Begin 

x2a;=(signiaStar.data[l,2]’*‘sigmaStar.data[1.2])-sigmaStar.data[2,2]*siginaStar.data[l,l]; 

x2b:=2.0*signiaStar.daia[l.l]*sigmaStar.daia(2,2]-2.0*(sigmaStar.data[l,2]*siginaS- 

tar.data[l,2]); 

x2c:=(sigmaStar.daia[  1 .2]*sigmaSiar.data(  1.2])-sigmaStar.data[  1 .1  ]*sigmaStar.data[2,2]; 

A1  :=!-signiaSlar.data[2.2]*xbarstar.daia[  1,1]; 
A2;=x2a*(xbarstar.data[2.1]*xbarstar.data[2.11); 

A3:=x2b*xx*xbarstar.daia[2. 1  ]; 

A4;=x2c*(xx*xx); 

A5:=(cvalue.data[l.l]*cvalue.data[l.l])*(signiaSiar.data[2,2]*sigmaStar.daia[2.2])*sigmaS- 

tar.data[l,l]; 

A6:=-sqr(cvalue.dafa(l.l])*signia.Star.daia[2.2]*sqr(sigmaSiar.data[l,2]); 

A7:=sigmaSiar.data(1.2]*xbarstar.daia[2.1]-sigmaStar.data[l,2]*xx; 


answer:=-(Al+Sqrt(A2+A3+A4+A5+A6)+A7)/sigtnaStar.data[2,2]; 

End; 

Procedure  EllipseX2X  lBottoni(var  xx:real;sigmaSiar:mathinat.matx;cvalue:mathmat.matx;xbar- 
star:mathniat.matx; 
var  answer;real); 


Var 

x2a,x2b,x2c,Al.A2,A3.A4.A5.A6.A7:Real; 

Begin 

x2a:ssqr(sigmaStar.data[2. 1  ])-sigmaStar.data[2.2]*sigmaStar.data[  1,1]; 

x2b:=2.0*sigmaStar.data[l,l]*sigmaStar.data[2,2]-2.0*(sigmaStar.data[2,l]*sigmaS- 

tar.data[2,l]); 

x2c;=(sigmaStar.data[  1 ,2]'*‘sigmaSiar.data[  1 .2])-sigmaSiar.data[  1 ,1  ]'*'sigmaStar.data[2,2]; 
A1  :=-sigmaSiar.dataI2,2]*xbarsiar.daia(  1,1]; 
A2:=x2a*(xbarstar.dataI2,l]*xbarstar.data(2,l]); 
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A3:=x2b*xx*xbarstar.daia[2,l]; 

A4:=x2c*(xx*xx); 

A5:=(cvalue.daial  1 .1  ]*cvalue.dala[  1 , 1  ])*(sigmaStar.data[2,2]*sigmaSiar.data[2,2])*sigmaS- 
tar.data[l,l]; 

A6  :=-sqr(c  value.dat  a[  1 , 1  ])*sigmaSiar.data[2.2]*sqr(sigmaStar.data[2, 1]); 
A7:=sigmaStar.daJa[2, 1  ]*xbarsiar.daia[2, 1  ]-sigmaStar.data[2, 1  ]*xx; 


answer:=(-A  1  +Sqri(A2+A3+A4+ A5+A6)-A7)/sigmaStar.data[2.2]; 


End; 

Procedure  E]]ipseX3XlTop(var  xx;rea];sigmaStar;mathmat.inatx; 
cvalue:mathmat.niatx;  xbarstar;mathmat.matx: 
var  answer:real); 


Var 

x3a.x3b,x3c,Al.A2.A3.A4.A5.A6.A7:Real; 

Begin 

x3a:=sqr(signiaStar.data[1.3])-sigmaStar.daia[l,l]*signiaStar.daiaI3.3]; 
x3b:=2.()*signiaSiar.data(  1 . 1  ]*signiaSiar.daia[3,3]-2.0*sqr(signiaStar.data[  1 ,3]); 
x3c:=sqr(sigmaStar.data(  1 .3))-sigmaSiar.data[  l.l]*sigmaStar.data[3.3]: 
Al:=-sigmaStar.daia(3.3]*xbarstar.daia[I.l]; 

A2;=x3a*sqr(xbarsf  ar.dai  al  3. 1 )); 

A3:=x3b*xx*xbarstar.data[3.l]; 

A4:=x3c*sqr(xx); 

A5:=sqr(cvalue.data[  1 . 1  ])*sqr(sigmaStar.data[3.3])*sigmaStar.data[  1.1); 

A6:=-sqr(cvalue.data(  1 , 1  ])*sigmaSiar.data[3.31*sqr(sigmaS!ar.data[  1 ,3]); 

A7:=signiaSiar.daia[  1 .3]*xbarstar.data[  3, 1  j-sigmaSiar.data[  1 ,3]*xx; 

answer;=-(Al+Sqrt(A2+A3+A4+A5+A6)+A7)/sigmaStar.data[3.3]; 

End; 

Procedure  EllipseX3X  lBoiuini(var  xx:real;sigmaStar:mathmat.matx;cvalue:niathmat.matx;xbar- 
starimathmat.matx; 

var  answer:real); 

Var 

x3a,x3b.x3c,Al,A2.A3.A4.A5,A6,A7:Real; 

Begin 

x3a:=sqr(signiaStar.data[  1 ,3])-signiaSiar.data(  1 .1  ]*sigmaStar.da!a[3,3]; 
x3b:=2.()*sigmaStar.data[l.I]*sigmaSiar.daia(3.3]-2.0*sqr(sigmaStar.data[l,3]); 
x3c:=sqr(sigmaStar.daia[1.3])-sigmaSiar.daiaIl.l]*sigmaStar.data[3,3]; 
Al:=-sigmaStar.data(3.3]*xbarstar.daia(l,ll; 

A2:=x3a*sqr(xbarstar.data[3.1]); 

A3:=x3b*xx*xbarsiar.data(3.1]; 

A4:=x3c*sqr(xx); 

A5:=sqr(cvalue.data(l.l])*sqr(sigmaStar.daia{3.3])*sigmaStar.daia[l.l]; 
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A6:=-sqr(cvalue.data(  1 . 1  ])*sigmaSiar.data(3.31*sqr(sigmaStar.daia[  1 ,3]); 
A7:=sigmaStar.dataI  1 ,3]*xbarsiar.dala[  3, 1  ] -sigma  Star. data[  1 ,3]*xx; 


answer:=(- A 1 +Sqrt(  A2-H  A3-K  A4-KA5+ A6)- A7)/sigmaStar.data[  3,3] ; 
End; 


Procedure  EIlipseX3X2Top(var  xx:rea];sigmaStar:mathmat.matx;cvalue:mathmat.matx;xbar- 
star:mathmat.matx; 
var  answer-.real); 


Var 

x3a,x3b,x3c,Al,A2,A3,A4,A5.A6.A7;Real; 

Begin 

x3a:=sqr(signiaStar.data[2.3])-sigmaStar.data[3,3]*sigmaStar.dataI2,2]; 

x3b:=2.0*signiaStar.data(3.3]*signiaSiar.daia(2,2]-2.0*sqr(sigmaStar.daiaI2.3]); 

x3c;=sqr(sigmaStar.data(2,3])-sigrnaStar.data(3.3]*sigmaStar.data[2.2]; 

Al:=-signiaSiar.data[3.3]*xbarstar.daia[2.1]; 

A2:=x3a*sqr(xbarstar.data[  3, 1  ]); 

A3:=x3b*xx*xbarstar. data]  3,1]; 

A4:=x3c*sqr(xx); 

A5;=sqr(cvalue.data(l.l])*sqr(sigmaSiar.data[3.3])*sigmaStar.data[2.2]; 

A6;=-sqi(cvalue.daiall.l])*sigmaStaT.datai3.3]*sqr(sigmaStaT.daial2,3]); 

A7:=signiaStar.daia[2.3]*xbarsiar.daia[3.1]-sigmaSiar.daia[2,3]*xx; 

answer:=*(Al+Sqii(A2+A3+A4+A.5+A6)+A7)/sigmaStar.datal3,3]; 

End; 

Procedure  EllipseX3X2Botioni(  var  xx;real;sigmaStar:maihmat.maix;cvalue:mathmat.matx 
;xbarstar:maihniat.niaix; 
var  answer:real); 


Var 

x3a.x.3b,x3c,Al,A2,A3.A4,A5.A6.A7:Real; 

Begin 

x3a:=sqr(sigmaStar.data(2.3])-sigmaStar.dataI3.3]*sigmaStar.data[2,2]; 

x3b;=2.0*sigmaStar.data[3.3]*signiaStar.data[2,2]-2.0*sqr(sigmaStar.data[2,3]); 

x3c:=sqr(sigmaStar.data[2.3])-sigmaStar.data[3.3]*sigmaStar.data[2,2]; 

Al:=!-sigmaStar.datal3.3]*xbarstar.daial2.1]; 

A2:=x3a*sqr(xbarstar.data[3.I]); 

A3:=x3b*xx*xbarsiar.data[3,l]; 

A4;=x3c*sqr(xx); 

A5;ssqr(cvalue.data[],l])’*‘sqr(sigmaSiar.daia[3.3])*sigmaStar.data[2,2]; 

A6:=-sqr(cvalue.data[l.l])*signiaSiar.data[3,3]*sqr(sigmaSiar.daia[2,3]); 

A7:=sigmaSiar.data[2,3]*xbarsiar.dataI3.1]-sigmaSiar.data[2.3]*xx; 
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answer:=(-Al+Sqn(A2+A3+A4+A5+A6)-A7)/sigmaSiar.datal3.3); 

End; 

End.  {unit} 
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Appendix  D 

The  second  unit.  MathMat  contain  several  procedures  for  performing  matrix  a]gd)ra. 

1.  Matinvert  -  inverts  a  matrix. 

2.  MatMuIt  -  multiplies  two  matrices. 

3.  MatAdd  •  adds  two  matrices. 

4.  MatSub  -  subtracts  two  matrices. 

5.  MatMut_by_k  -  multiplies  a  matrix  by  a  constant. 

6.  Zero_Matrix  -  creates  a  zero  matrix. 

7.  Mat_Transpose  -  transposes  a  matrix. 

8.  Mat_Angment  -  combines  two  matrices  or  vectors  into  a  single  matrix. 

unit  MathMat; 

{$F+) 

{$0+} 

interface 

uses  Cri.Dos.Graph; 

Const 

np=10;  {Matrix  can  be  up  to  10  x  10,  modify  np  for  larger  matrics) 

Type 

RealArrayNPbyNPs  ARRAY[l..np.l..np]  of  real; 
matx  =  Record  Data;  RealArrayNPbyNP; 

Rows.Cols:  Integer;  end; 

Procedure  Matinvert  (var  b.y:  matx);  {y=invert  of  matrix  b} 

Procedure  MatMiilt  (var  a.b.c:  matx);  {C=A*B} 

Procedure  MatAdd  (var  a.b.c:  matx);  { C=A+B } 

Procedure  MatSub  (var  a.b.c:  matx);  {C=A-B) 

Procedure  Mat_k_Mult  (var  a.c:  matx;  (C=k*A} 
k:  Real);  (k  is  a  scalar) 

Procedure  Mat_Zeri)  (var  a;  matx); 

Procedure  Mat  .Transpose  (var  a.b:  matx);  (b  is  transpose  of  a) 

Procedure  Mat  Write  (var  a:  matx);  {Writes  an  rowxcol  matrix } 

Procedure  Matlnpiit(var  matrx:  matx; 

celljength:  Integer;  {Width  of  each  cell } 
dec4)laces:  Integer;  { Number  of  Decimal  Places  per  Cell } 
mat:  String;  {Input  Matrix  Name) 
x.y:  Integer);  {Location) 
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Procedure  MatAugmem(var  augmat,matl,mat2:  matx); 
implementation 
Type 

RealArrayNP  =  ARRAY  [l..np]  of  real; 

Integer ArrayNP  =  ARRAY  [  l..np]  of  integer; 

var 

i,j;  integer; 

Procedure  ludcmp  (var  a:  RealArrayNPbyNP; 
n:  integer; 

varindx:  IntegerArrayNP; 
var  d:  real); 

{Inversion  Routine  primarily  based  on  routines  from  the  book: 
Numerical  Recipes  in  Pascal  by  William  H.  Press  and  others. 
Published  by  the  Press  Syndicate  of  the  University  of  Cambridge, 
New  York,  1989. 

Pages  42-46} 

Const 

tiny  =  l.Oe-20; 


Var 

k.j,imax,i:  integer; 
sum.dum.big;  real; 
w:  ''RealArrayNP; 

Begin 

new(vv); 

d:=1.0; 

For  i:=l  to  n  do  begin 
big  ;=  0.0; 
for  j  :=  1  to  n  do 

if  abs(a[i.j])>big  then  big  :=abs(ali,j]); 
if  big  =  0.0  then  begin 

writeln  (’pause  in  LUDCMP  -  singular  matrix’); 
readln 
end; 

vv''[i]  :=  l.O/big 
end; 

for  j  :=  1  to  n  do  begin 
fori  :=  1  toj-1  do  begin 
sum  :-a[i,j]; 
fork  :=  1  toi-1  do 
sum  :=  sum-a[i.k]*a[k.j]; 
a[i,j]  :=  sum 
end; 

big  :=  0.0; 
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for  i  ;=  j  to  n  do  begin 
sum  := 

for  k  :=  1  to  j-1  do 
sum  :=  sum-a[i,k]*alk,j]; 
ali,j]  :=  sum: 
dum  :=  vv^[i]*abs(sum); 
if  dum  >=  big  then  begin 
big  :=  dum; 
imax  :=i 
end 
end; 

if  j  <>  imax  then  begin 
for  k  :=1  to  n  do  begin 
dum  a[imax,k]; 
a[imax.k]  :=  a[j,ki: 
a[j.k]  :=  dum 
end; 
d  :=  -d; 

w'^[imax]  :=  dum 
end; 

indxlj]  :=  imax; 
if  aU<j]  =  O  f*  :=  liny; 

if  jo  n  then  begin 
dum  :=  1.0/a[.j.J]; 
for  i  ;=  j+ 1  to  n  do 
a[i.j]:=  a[i.j]*duni 
end 
end; 

dispose(vv) 

end; 

Procedure  lubksb  (var  a;  RealArrayNPbyNP; 
n:  integer; 

var  indx:  Integer ArrayNP; 
var  b:  RealArrayNP); 

{Inversion  Routine  primarily  based  on  routines  from  the  book: 
Numerical  Recipes  in  Pascal  by  William  H.  Press  and  others. 
Published  by  the  Press  Syndicate  of  the  University  of  Cambridge, 
New  York.  1989. 

Pages  42-46} 

var 

j.ip,ii.i;  integer; 
sum:  real; 

begin 

u;=0; 


for  i  :=1  to  n  do  begin 
ip  :=  indx(i]; 
sum  ;=  b[ip]; 
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b[ip]  :=  b[i]; 
if  ii  <>  0  then 
forj  :=  iitoi-1  do 
sum  :=  sum-a[i,j]’'‘blj] 
else  if  sum  <>  0.0  then 
ii  :=i; 
b[i]  :=  sum; 
end; 

for  i  :=  n  downto  1  do  begin 
sum  :=  b[i]; 
forj:=  i+1  ton  do 
sum  :=  sum-a[i,j]*blj]; 
b[i]  :=  sum/a[i4]; 
end; 
end; 

Procedure  Maiinvert  (var  b.y:  matx); 

{Inversion  Routine  primarily  based  on  routines  from  the  book; 
Numerical  Recipes  in  Pasca’  )y  William  H.  Press  and  others. 
Published  by  the  Press  Syndicate  of  the  University  of  Cambridge. 
New  York,  1989. 

Pages  42-46} 

var 

a:  RealArrayNPbyNP; 
i,j:  integer; 
col:  RealArrayNP; 
indx:  IntegerArrayNP; 
d:  Real; 


begin 
a  :=  b.data; 

ludcmp(a.b.rows,indx,d); 
for  j;=  1  to  b.rows  do  begin 
for  i:=  1  to  b.rows  do  col[i]  :=0.0; 
col[j]  :=  1.0; 

lubksb(a,b.rows.indx.col); 
for  i  :=  1  to  b.rows  do  y.data(i,j]  :=  col[i) 
end; 

y.rows:=b.rows;  y.cols:=b.cols; 
end; 


f5^ure  MatMult  (var  a.b.c:  matx); 


{C=A*B} 


var 

row.col.i:  Integer; 
sum:  Real; 


begin 

if  a.cols  =  b.rows  then  begin 
for  col  :=  1  to  b.cols  do  begin 
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for  row  :=  1  to  a.rows  do  begin 
sum  :=  0; 

for  i  :=  1  to  b.rows  do 
sum  :=  sum  +  a.data[row,i]*b.data[i,col]; 
c.data[row,col]  :=  sum; 
end; 
end; 

c.rows  :=  a.rows; 
c.cols  :=  b.cols; 
end 

else  begin 

writeln  (’The  number  of  columns  of  the  first  matrix  must  equal  the’); 
writeln  (’number  of  rows  of  the  second  matrix  in  order  to  multiply’); 
writeln  (’matrices.’) 
end; 
end; 


Procedure  MaiWrite  (var  a:  matx); 
var 

ij:  Integer; 

begin 

writeln; 

for  i  :=  1  to  a.rows  do  begin 
for  j  :=  1  to  a.cols  do 
write  (a.daia(i.j];.5,’  ’); 
writeln  (’  ’); 
end; 
end; 

Procedure  MatAdd  (var  a.b.c:  matx);  {C=A+B } 
var 

ij;  Integer; 
begin 

for  i  :=  1  to  a.rows  do  begin 
for  j  :=  1  to  a.cols  do 
c.data[i  j]  :=  a.data[i j]  +  b.datali  j]; 
end; 

c.rows  :=  a.rows; 
c.cols  :=  a.cols; 
end; 


Procedure  MaiSub  (var  a.b.c:  matx);  { C= A-B ) 

var 
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ij:  Integer; 


begin 

for  i  :=  1  to  a.rows  do  begin 
for  j  :=  1  to  a.cols  do 
c.data[i,j]  ;=  a.data[io]  -  b.data[i.j]; 
end; 

c.rows  :=  a.rows; 
c.cols  ;=  a.cols; 
end; 


Procedure  Mat_k_Mult  (var  a.c;  matx;  {C=k*A} 
k:  Real);  (k  is  a  scalar) 


var 

i,j:  Integer; 
begin 

for  i  :=  1  to  a.rows  do  begin 
for  j  :=  1  to  a.cols  do 
c.daia[i.j]  :=  k*a.data[i.j]; 
end; 

c.rows  :=  a.rows; 
c.cols  :=  a.cols; 
end; 

Procedure  Mat_Zero  (var  a:  matx); 
var 

m.n:  Integer; 
begin 

for  m  :=  1  to  a.rows  do 
for  n  :=  1  to  a.cols  do 

a. datafm.n]  ;=  0; 
end; 

Procedure  Mat_Transpose  (var  a.b:  matx); 
var 

i,j:  Integer; 
begin 

for  i  :=  1  to  a.rows  do  begin 
for  j  :=  1  to  a.cols  do 

b. data[j.i]  ;=  a.data[i,j]; 
end;  {fori  begin) 

b.rows  :=  a.cols; 
b.cols  :=  a.rows; 
end;  {Mat_Transpose) 
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Procedure  Matlnput(var  matrx:  matx; 
celljength:  Integer; 
dec  _places;  Integer; 

mat:  String;  {Input  MaU’ix  Name) 
x.y:  Integer);  {Location} 

procedure  cursor_to_cell(i,j:  integer);  {Move  Cursor  to  Ciurent  Cell } 

begin 
casej  of 

0  :  GotoXY(length(mat)+34+l); 

1  :  GotoXY0ength(mat)+5.i+l); 
else  GotoXY(length(mat)+j*cellJength,i+l) 
end;  {casej} 
end;  {cursor_to_ceIl} 


procedure  brackets; 
const 

open_fop_bracket  =  chr(2 18);  { ASCII  Codes} 

open_bottom_bracket  =  chr(192); 
vertical_bar  =  chr(  1 79); 
close_top_bracket  =  chr(191); 
close_bottom_bracket  =  chr(2 17); 

var 

i,j:  integer; 
begin 

GotoXY(  1  ,trunc((matrx.rows+3)/2)); 

Write  (mat.’=’); 

for  i  :=  0  to  maU'x.rows+l  do  begin 
j:=0; 

cursor_to_cell(iJ); 

If  i  =  0  then  write(open_top_bracket) 
else  If  i  =  matrx.rows+1  then  write(oipen_bottom_bracket) 
else  write(vertical_bar); 

j  :=  matrx.cols+1; 
cursor_to_cell(i,j); 

If  i  =  0  then  write(close_top_bracket) 
else  If  i  =  matrx.rows+1  then  write(close_bonom_bracket) 
else  write(verticaLbar); 

end;  {loopi} 

GotoXY(2,matrx.rows  +4); 

Write(’Press  FIO  when  finished’); 
end;  {brackets} 
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procedure  SetUp{x,y;inieger);  {Location  of  window} 


var 

width:  integer: 
begin 

If  (y+matrx.rows  +2)>24  then  begin 

writeln  (’Sorry,  cursor  position  is  to  near  the  bottom  of  the  screen.’); 
writeln  (’x=’,x.’  y=’.y); 
writeln  (’Hit  to  Continue’); 
readln; 
end 
else 

If  (x+cell_length*(matrx.cols+l)+.^+length(mat))>80then  begin 
writeln  (’Sorry,  cursor  position  is  to  near  the  right  edge  of  the  screen.’); 
writeln  (’x=’.x.’  y=’,y); 
writeln  (’Hit  to  Continue’); 
readln; 
end; 

Width  :=  cellJength*(matrx.cols+l)+length(mat)+3; 

If  Width  <  28  then  Width  :=  28; 

Window(x,y.x+Width.y+nialrx.rows  +.3); 

TextBackground(Blue); 

ClrScr; 
brackets; 
end;  {Setup} 


procedure  celljext ;  {Set  Colors  to  Highlight  Current  Cell } 

begin 

TextBackground(LightGray); 

TextColor(Black); 
end,  {celljext} 


procedure  normal jext;  {Reset  Colors} 
begin 

TextBackground(Blue); 

TextColor(Li  ght  Gray ) ; 
end;  { normal jext} 


procedure  input_nuniber(var  niatrx:  matx);  {input  matrix} 
const 

left_arrow  =  75;  {0  is  returned  first  for  arrow  keys! } 

right_arrow  =  77; 
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up_arrow  =  72; 

(iown_arTOw  =  80; 
backspace  =  8; 
returns  13; 
escape  =  27; 
plus  =  43; 
minus  =  45; 

F10  =  68; 
decimal  =  46; 

var 

key,key2 :  char; 

k,dec,exit_cell,exit_procedure,errorcode  ;  Integer; 
number :  string;  {input  shing) 


procedure  cell_write(number;string); 
var 

k,errorcode:  integer; 
s:  shing; 
x:  real; 

begin 

val(nuniber.x.errorcode); 

str(x:celljengih:dec_places,s); 

write(s); 

end;  {celLwrite} 


procedure  exec_return  (var  nuniber_string:  string; 
var  value:  Real; 
var  exit_cell:  integer); 
var 

k:  integer; 
begin 

val(number,value,errorcode); 
exit_cell  :=  1;  (input  is  complete} 

If  errorcode  <>  0  then  writeln  (’error  in  exec_return  procedure’); 
Cursor_to_Cell(i.j); 
normal_text; 
cell_write(number); 
end;  {exec_return} 


procedure  toojong; 
var 

h.m.s.s  1  (K).s_del ay .s_count :  W ord ; 
begin 
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GotoXY(2,matrx.rows  +3); 

Write(’Input  Limited  to  ’,Cell_Length.’  digits’); 

GetTime(h,m,s.slOO); 

s_delay  :=  s+3; 

GotoXY(2,matrx.rows  +3); 
repeat 

GetTime(h,m  ,s.s  1 00) ; 
until  s  >=  s_delay; 

Texts  ackground(Blue) ; 

WriteC  '); 

end;  {toojong} 

procedure  char_ok(key:char; 

var  number:  string); 
var 

x,y,i:  integer; 

begin 

write(key); 

number  :=  number  +  key  ; 

If  length(number)  =  1  then  begin 
X  :=  WhereX; 
y  :=  WhereY; 

For  i  :=  2  to  Cell  Length  do  writeC  ’); 
GotoXY(x.y); 
end;  {if} 
end;  {char_ok) 

function  strg(x:real) :  string; 

var 

s:  string; 
begin 

str(x;cell_lengih:dec_places.s); 
strg  :=  s; 
end;  (strg) 

procedure  WrapAround; 
begin 

if  i  >  matrx.rows  then  i  :=  1 ; 
if  i  <  1  then  i  :=  matrx.rows  ; 
if  j  >  matrx.cols  then  j  :=  1 ; 
if  j  <  1  then  j  :=  matrx.cols  ; 
end;  {WrapAround} 

procedure  ReWrit(i.j:  Integer); 

begin 

Cursor_to_Cell(i.j); 

normaljext; 
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If  length(number)  =  0  then  cell_write(strg(mairx.data[i.j])) 
else  cell_write(number); 
end;  {ReWrii} 


procedure  initialize; 


var 

ij:  integer; 
number:  string; 

begin 

number  :=  ”; 

for  i  :=  1  to  matrx.rows  do  begin 
for  j  :=  1  to  matrx.cols  do  ReWrit(i.j); 
end;  {fori begin} 
end;  (Initialize) 


(****  Main  Procedure  Inpui_Number  ♦***) 


begin 
Initialize; 
i  :=  1; 
j:=  1; 

exit_procedure  ;=  0; 
repeat 

number  :=  ”; 
exit_ceU  :=  0; 
dec  :=  0; 

cursor_to_cell(i,j); 

celljext; 

cell_write(su-g(  mairx  .dat  a[i ,  j] )) ; 

cursor_to_cell(i.j); 

repeat 

key  ;=  readkey; 

if  Ord(key)  =  0  then  key2  ;=  readkey;  { Read  Extended  Key  Code } 
case  Ord(key)  of 

48. .57  :  If  length(number)<CelLLength  then  char_ok(key, number) 

{  Numbers  }  else  too  Jong; 


return  :  If  length(number)>{)  then  begin 

exec_return(number,matrx.data[i.j],exit_cell); 
If  i  =  matrx.rows  then  begin 
i  :=  1 ;  { was  on  bottom  row} 

j  :=j+i: 

end  { if i  begin} 
else  i  ;=  i+ 1 ; 
end  (if  length  begin} 
else  begin 
ReWrit(i.j); 
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i  :=  i+1; 
exit_cell  :=  1 ; 
end;  {else  begin} 

decimal  :  If  dec  =  0  then 

If  length(number)  <  Cell_Length  then  begin 
char_ok(key  .number); 
dec  :=  1 ; 
end  {begin} 
else  toojong; 

0  :  begin 

case  Ord(key2)  of 
left_arrow  ;  begin 

If  length(number)>0  then 
exec_return(number.matrx.data[ij],exit_cell) 
else  ReWrii(i.j); 
j 

end; 

right_arrow  :  begin 

If  lencth(number)>0  then 
exec_return(number.matrx.data[i.j},exit_cell) 
else  ReWrii(i  j); 
j:=j+l; 
end; 

up_arrow  :  begin 

If  lengih(number)>0  then 
exec_return(number,matrx.data(i.j).exit_cell) 
else  ReWrit(i.j); 
i:=i-l; 
end; 

down_arro\v  :  begin 

If  lengih(number)>0  then 
exec_rerurn(number.matrx.data{i,j],exit_cell) 
else  ReWrit(i,j); 
i  :=  i+ 1 ; 
end; 

FH)  ;  begin 

If  length(number)  >  0  then 
exec_return(number,matrx.data[i,j},exit_cell) 
else  ReWrii(i.j); 
exii_procedure  :=  1 ; 

GotoXY(2.matrx.rows  +4); 

WriieC  '); 

end; 

end;  {case  Ord(key2)} 
exit_cell  :=  1; 
end;  {begin} 
backspace  ;  begin 

number  :=  Copy  (number, l.(length( number)-!)); 

GotoX  Y(  WhereX- 1 .  WhereY); 
write  (’  ’); 
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GotoXY(WhereX- 1  .WhereY); 
end; 


escape  :  begin 
number 

Cursor_to_Cell(i,j); 
for  k  1  to  CeU_Length  do  write  (*  *); 
Cursor_to_Cell(i  ,j) : 
end; 

plus  :  If  lengUi(number)  =  0  then  char_ok(key .number); 
minus  :  If  length(number)  =  0  then  char_ok(key .number); 


else  ;  {Do  Nothing  ifother  keys  are  pressed) 

end;  {case  Ord(key)) 

WrapAround; 
until  exit_cell  =  1 ; 
normal_text; 
until  exit_iM^ocedure  =  1 ; 
end;  {input_numbcr} 


begin 

Setup(x.y); 

input_number(matrx); 

Window(  1.1, 80.25); 
end;  {M_lnput} 

Procedure  MatAugment(var  augmat.matl,mai2:  matx); 
var 

i,j:  Integer; 
begin 

for  i  :=  1  to  mat  1  .rows  do  begin 
for  j  :=  1  to  (matl.cols+mat2.cols)  do 
if  j  =  mat  1. cols  then  augmat.data(i.j]  ;=  mat  1  .data(i,j] 
else  augmat.data{i,j]  :=  mat2.datu[i,j-matl.cols]; 
end;  {for  i) 

augmat.rows  :=  mat  1. rows; 
augmat.cols  ;=  marl.cols-fmai2.cols; 
end;  {Mat Augment) 


Appendix  E 


The  third,  unit  RGraphma  uses  procedures  developed  by  Steve  Pearce  (cite  thesis). 

1.  GMatInput  -  displays  a  matrix  and  gives  the  user  ability  the  to  change  its  values. 

2.  GMatWrite  -  displays  a  matrix  without  users  ability  to  change  its  values. 

unit  RGraphMa; 

{$F+} 

{$0+1 

interface 

uses  Crt.Dos,Graph.MathMa(; 

Procedure  GMatlnput(var  matrx:  matx; 
celljength:  Integer; 
dec_places:  Integer; 

mat;  String;  {Input  Matrix  Name} 
x.y:  Integer;  (Location) 

MatColor:  Word;  (Color  of  Matrix} 

MatBackground:  Word;  (Color  of  Matrix  Background} 
MatForeground:  Word);  { Color  of  Characters } 

Procedure  GMatWrite(var  matrx:  matx; 
celljength:  Integer; 
dec_places;  Integer; 

mat:  String;  (Input  Matrix  Name} 
x.y:  Integer;  (Lcx’aiion} 

MatColor;  Word;  (Color  of  Matrix} 

MatBackground:  Word;  (Color  of  Matrix  Background} 

MatForeground:  Word);  (Color  of  Characters} 

implementation 

type 

Intarray=array[  1  ..6.1  ..6]  of  integer; 
var 

i,j:  integer; 

Viewport:  ViewPortTyjje; 


^♦***l|l**l(t;(!***lte*lt:it!i!>|<>)>*!»:|!**!|<>|!**lt!**  +  >(<!f!<'<'****>t>*******'t‘*******************J 

(***  The  following  routines  are  used  in  GMatInput  and  GMatWrite  ***) 


procedure  cursor_to_cell(i .j;  integer;  ( Move  Cursor  to  Current  Cell } 
x.y:  integer;  { Location  of  Entire  Matrix } 

W.H;  integer;  (Width  &  Height  of  Char  Set} 


mat;  string;  {Name  of  Matrix} 
celljength:integer);  {#  of  digits  per  cell } 


begin 
casej  of 

0  :  SetViewPort(X+(W-4)*lengih(mat),Y+H*i, 

X+W*(cell_length+length(mat)).Y+H*(l+i)- 1  J^alse); 

1  :  SetViewPort(Round(X+(W-4)*Length(mat)+15),Y+H*i, 

Round(X+(W-4)*Length(mat)+25+cellJength*W).Y+H*(l+i)-lJalse); 

2  :  SetViewPort(Round(X+(W-4)*Length(matK2{>f50).Y+H*i, 

Round(X+(W-4)*Length(mat)+25+60+cell_length*W), 

Y+H*(l+i)-l. False); 

3  :  SetViewPort(Round(X+(W-4)*Length(mat)+25+100),Y+H*i, 

Round(X+(W-4)*Length(mat)+25+110+cell_length*W), 

Y+H*(l+i)-l. False); 

4  :SetViewPorT(Round(X+(W-4)*Length(niat)+25+150).Y+H*i. 

Round(X+(W-4)*Lencih(mat)+25+160+cellJength*W), 

Y+H*(l+i)-l. False);  “ 

5  :SetViewPort(Round(X+(W-4)*Length(niat)+25+200).Y+H*i, 

Round(X+(W-4)*Length(mat  )+25+2 1 0+cellJength*W), 

Y+H*(l+i)-l. False); 

6  •.SeiViewPort(Round(X+(W-4)*Length(mat)+25+250),Y+H*i, 

Round(X+(W-4)*Length(mat)+25+26{l+cell_length*W). 

Y+H*(l+i)-l.False); 

7  :SetViewPort(Round(X+(W-4)*Length(mat)+25+300),Y+H*i, 

Round(X+(W-4)*Length(mat)+25+31{)+cellJength*W), 

Y+H*(l+i)-l. False);  *' 

8  :SetViewPon(Round(X+(W-4)*Length(mat)+25+350).Y+H*i, 

Round(X+(W-4)*Lengih(niat)+25+360+cellJength*W), 

Y+H*(l+i)-l.False); 

9  :SetViewPon(Round(X+(W-4)*Length(mat)+25+4(X)),Y+H*i. 

Round(X+(W-4)*Length(niai)+25+410+cellJength*W), 

Y+H*(l+i)-l. False);  ^ 

10  :SetViewPon(Round(X+(W-4)*Length(mat)+25+450).Y+H*i, 

Round(X+(W-4)*Lencth(niat)+25+460+cellJength*W), 

Y+H*(l+i)-l. False);  ' 


else  Writeln(output.’Look  at  else  in  Cursor_Cell  in  GraphMat’); 
end; {casej} 

GetViewSenings(ViewPort); 


end;  {cursor_to_cell} 


iwocedure  brackeis(x,y:  integer;  {Location  of  Entire  Matrix) 
W,H;  integer;  { Widili  &  Height  of  Char  Set ) 
mat;  string;  {Name  of  Matrix) 
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matrx:  matx;  {Matrix  containing  data) 
celljength;  integer;  {#  of  digits  per  cell} 

FIO:  Boolean;  (Press  FI 0  or  Not) 

BracketColor:  Word;  { Color  of  Bracket ) 

MaiBackground:  Word);  (Color  of  Background) 
var 

i,j:  integer; 

■nJC,TLy,BLX,BLY.TRX,TRY.BRX.BRY:  integer; 

UpperTitle,LowerTitle,mat2:  string; 

Upper:  Boolean; 

OldColor:  Word; 

OldStyle:  TextSettingsType; 

begin 

mat2:=”; 

GetTextSettings(OldStyle);  ( So  we  can  set  them  back) 

01dColor:=GetColor; 

SetTextJustify(l.l);  (Center  Horizontally  &  Vertically) 

SetColor(15); 

(The  routine  below  looks  for  a  decimal  point  and  assumes  that  characters 
following  the  decimal  point  will  be  placed  as  a  subscript. 

Only  1  level  of  subscripting  is  supported.) 

Upper:=True;  (Title  starts  in  normal  Text } 

UpperTitle:=”;  LowerTitle:=”; 

for  i:=l  to  Length(mat)  do 
If  Copy(mat,i.l)  =  then  Upper:=Not  Upper 
else  Case  Upper  of 

True  :  begin  UpperTitle;=UpperTitle+Copy(mat,i,l); 

LowerTitle:=LowerTitle+’  ’;  end; 

False ;  begin  LowerTitle:=LowerTitle+Copy(mat,i,l); 

UpperTitle:=UpperTitle+’  ’;end; 

end; 

If  length(mat)>{)  then  begin  mat2:=UpperTitle+’=’;  LowerTitle:=LowerTitle+’  ’;  end; 

TLX  :=  Round(X+(W-4)*(Length(mat)+2));  TLY  :=  Y; 

TRX  ;=  TLX+W*(matrx.coIs*Cell_Length+4+ord(matrx.cols>2)*l);  TRY:=Y; 

BLX  :=TLX;  BLY:=  Y+round(H*(matrx.rows+1.5)); 

BRX  :=  TRX;  BRY;=  BLY; 

OutTextXY  (x,y+Round(0..5*H*(matrx.rows+1.5)),mat2); 

OutTextXY  (x,y+Round(0.5*H*(matrx.rows+1.5))+4,Lowerntle); 

SetLineStyle(0.0.3);  { Solid.  No  Pattern.  Thick) 

SetColor(  BracketColor) ; 

MoveTo(TLX+W,TLY);  LineTo(TLX.TLY);  LineTo(BLX.BLY);  LineTo(BLX+W.BLY); 
MoveTo(TRX-W.TRY);  LineTo(TRX.TRY);  LineTo(BRX,BRY);  LineTo(BRX-W.BRY); 
SetColor(15); 

If  FIO  then  begin 
SetFillStyle(  1  .MatBackground); 

Bar((BLX+BRX)  div  2-W*7.  Round(BLY+2.5*H).(BLX+BRX)  div  2+W*7. 
Round(BLY+3..5*H)); 
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OutTextXY  ((BLX+BRX)  div  2.  BLY+3*H.  *F10  to  finish’);  end 
else  begin 

SetFillStyle(l  ,MatBackground); 
Bar(TLX+2,TLY+2.BRX-2.BRY-2);  end; 


SetTextJustify(01dStyle.Horiz,  OldSlyle.Vert); 
SetColor(OldColor); 
end;  {brackets} 


procedure  SetUp(x,y:integer; 

W.H:  integer;  {Width  &  Height  of  Char  Set} 
mat:  string;  {Name  of  Matrix} 
matrx:  matx;  {Matrix  containing  data} 
celljength:integer;  {#  of  digits  per  cell} 

FIO:  Boolean);  {Press  FIO  or  Not } 


begin 

SetViewPort(0,f),GetMaxX.GetMaxY.True); 

If  (y+(2+matrx.rows*H))>GeiMaxY  then  begin 

Writeln(outpui, ’Sorry,  cursor  position  is  to  near  the  bottom  of  the  screen.’); 
Writeln(output.  ’X=’.X.’  (W-4)=’,W-4.’  lengih(mat)=’,length(mat),’  celljength= 
celljength,’  matrx. cols=’.matrx. cols); 

Writeln(output.’Hit  to  Continue’); 
readln; 

closegraph;  Halt; 
end 
else 

If  Round(X+(W-4)*(Length(mat)+2))+W*(matrx.cols’^Cell_Length+2+ 
ord(matrx.cols>2)*'2)>GetMaxX  then  begin 

Writeln( output,  ’Sorry,  cursor  position  is  to  near  the  right  edge  of  the  screen.’); 
Writeln(output,  ’X=’,X,’  (W-4)=’,W-4,’  length(mat)=’.length(mat),’  celljength= 
celljength.’  matrx. cols=’,matrx.cols); 

Writeln(output.  ’Hit  to  Continue’); 
readln; 

closegraph;  halt; 
end; 

end;  {Setup} 

procedure  cell_write(number:string; 
dec_places:integer; 
celljengthiinteger); 


var 

k,erTorcode,dplaces:  integer; 
s;  string; 
x:  real; 

OldStyle:  TextSettingsType; 


begin 

GetTextSettings(OldStyle);  {So  we  can  set  them  back} 

SetTextJustify(0,2);  {Center  Horizontally  &  Vertically} 

dplaces:=dec_places; 

val(number,x,errorcode); 

repeat 

str(x:celljength:dplaces.s); 
if  length(s)>celljength  then  Dec(dplaces); 
until  ((length(s)=celljength)  or  (dplaces 
OutTextXY(0,l,s); 

SetTextJustify(01dStyle.Horiz,  OldStyle.Ven); 
end;  {cell_write} 


function  su-g(x:real; 
celljength;integer; 
dec_places;integer) ;  string; 

var 

s:  string; 
begin 

str(x;celljength:dec_places.s); 
strg  :=  s; 
end;  {strg} 


Procedure  GMatInput(var  matrx:  niatx; 
celljength:  Integer; 
dec_places:  Integer; 

mat:  String;  {Input  Matrix  Name} 
x.y;  Integer;  {Location} 

MatColor:  Word;  {Color  of  Matrix} 

MatBackground:  Word;  {Color  of  Matrix  Background} 

MatForeground;  Word);  {Color  of  Characters} 


var 

H:  Integer;  {Height  in  Pixels  of  I  character} 
W:  Integer;  {Width  in  Pixels  of  1  character} 
CM:  Integer;  {Center  of  Matrix  (X-wise)} 
ViewPort2:  ViewPortType; 

OIdStyle2:  TextSettingsType; 


procedure  Cursor_Cell(i.j:  integer); 
begin 

cursor_to_cell(i.j.x.y.W.H.mat,cell_length); 
end;  {prix:edureCursor_Cell} 
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procedure  CelLRite(nuniber:siring); 
begin 

CelLWrite(nuniber.dec_places.cellJengih); 
end;  {Procedure  Cell_Riie} 

IWDcedure  celMext;  { Set  Colors  to  Highlight  Current  Cell ) 
begin 

With  Viewport  do  begin 
SetFillStyle(  1 ,  { Solid  Pattern } 

7);  {Light  Gray  is  Highlighted  Cell  Background} 
Bar(0.0,X2-Xl,Y2-Yl);  end; 

SetColor(15);  {White  is  the  Highlighted  Cells’  Foreground} 
end;  {cell_text} 


procedure  nornial_text{Cell_Color:Word);  {Reset  Colors} 
begin 

SetColor(Cell_Color);  {Normal  Cell  Foreground} 

With  ViewPon  do  begin 
SetFillStyle(  1 ,  { Solid  Pattern } 

MatBackcround);  {Blue  is  the  cell  background} 
Bar((),().X2-X  1  ,Y2- Y 1 );  end; 
end;  {normaljext} 


procedure  input_number(var  niatrx:  matx);  {input  matrix} 
const 

left_arTOw  =  75;  {0  is  returned  first  for  arrow  keys! } 

right_arrow  =  77; 

up_arrow  =  72; 

down_arrow  =  80; 

backspace  =  8; 

return  =13; 

escape  =  27; 

plus  =  43; 

minus  =  45; 

F10  =  68; 
decimal  =  46; 

var 

key,key2  :  char; 

k,decimals.exit_cell,exit_procedure.errorcode  :  Integer; 
number :  string;  {input  string) 

TLX.TRX.BLY:  Integer; 
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procedure  exec_return  (var  nunibcr_siring:  string; 
var  value:  Real; 
var  exit_cell:  integer); 
var 

k:  integer; 
begin 

val(number  .value.errorcode) ; 
exit_cell  :=  1 ;  { input  is  complete } 

If  errorcode  <>  0  then  OutText  (’error  in  exec_retum  procedure’); 

Cursor_Cell(i,j); 

normal_text(7); 

Cell_Rite(number); 
end;  {exec_retum} 


procedure  toojong; 
var 

ViewOld:  ViewPortType; 

By.Rx.Lx:  Integer; 
msg.cs:  String; 

OldStyle:  TextSettingsType; 

begin 

GetTextSettings(OldStyle);  (So  we  can  set  them  back) 

GetViewSetiings(  ViewOld); 

Set  V  ie  wPort(0 .( 1  ,GetM  axX  ,Get  Max  Y  .True ); 

By:=  Y+round(H*(matrx.rows+1.5)); 

Lx  :=  Round(X+(W-4)*(Length(mat)+2)); 

Rx  :=  Round(Lx+W*(matrx.cols*Cell_Length+5)); 

SetFillStyle(l,  (Solid  Pattern} 

MatBackground); 

Bar(Round((Lx+Rx)/2- 

12*W),Trunc(By+3.5*H).Round((Lx+Rx)/2+I2*W).Round(By+2.5*H)); 

SetTextJustify(l.l); 

Str(Cell_Length,cs); 
msg:=’to  ’+CS+’  digits’; 

OutTextXY  ((Lx+Rx)  div  2.By+H,’lnput  Limited’); 

OutTextXY  ((Lx+Rx)  div  2.By+2’^H.msg); 

OutTextXY  ((Lx+Rx)  div  2,  By+3*H.’(Press  RETURN)’); 
readln; 

SetFillStyle(l,  (Solid  Panern) 

MatBackground); 

Bar(Round((Lx+Rx)/2-7’^W).Trunc(By+().5*H).Round((Lx+Rx)/2+7*W).Round(By+3.5*H)); 
OutTextXY  ((LX+RX)  div  2,  BY+3*H.  ’FIO  to  finish’); 

SetTextJustify(01dStyle.Horiz.  OldStyle.Vert); 

With  ViewOld  do  SetViewPort(Xl.Yl.X2.Y2.False); 
end;  (toojong) 
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procedure  char_ok(key:char; 

var  number;  stfing); 
var 

x,y,i;  integer; 

OldStyle:  TextSeningsType; 
begin 

GetTextSettings(OldStyle);  { So  we  can  set  tltem  back} 
SeiTextJustify(0,2);  {Center  Horizontally  &  Vertically) 

number  :=  number  +  key; 

If  length(number)  =  1  then  {Blank  out  old  number} 

With  Viewport  do  begin 
SetFillStyle(  1 .  { Solid  Panern } 

MatBackground);  {Highlighted  Cell  Background} 
Bar(0,0.X2-Xl,Y2-Yl);end; 

OutTextX  Y(GeiX ,  1  .key) ;  Mo  veRel  ( W.( )) ; 

With  OldStyle  do  { Reset  TexiSeitings } 
begin 

SetTextJustify(Horiz.  Vert); 

SetTextStyle(Font.  Direction,  CharSize); 
end; 

end;  {char_ok} 

function  strg(x:real) :  string; 

var 

s;  string; 
begin 

str(x:celljength:dec_places.s); 
strg  ;=  s; 
end;  {strg} 

procedure  WrapAround; 
begin 

if  i  >  matrx.rows  then  i  :=  1 ; 
if  i  <  1  then  i  :=  matrx.rows  ; 
if  j  >  matrx.cols  then  j  ;=  1; 
if  j  <  1  then  j  :=  matrx.cols  ; 
end;  {WrapAround} 

procedure  ReWrit(i,j:  Integer; 
number:  string); 


begin 

Cursor_Cell(i,j); 

normal_text(7); 

If  length(number)  =  0  then  CelLRite(strg(matrx.data[i  j])) 
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else  Cell_Rite(number); 
end;  {ReWrit) 


procedure  initialize; 
var 

i,j:  integer; 
number:  string; 

begin 

number 

for  i  :=  1  to  matrx.rows  do  begin 
for  j  :=  1  to  matrx.cols  do  rewrit(i,j,number); 
end;  {fori begin} 
end;  {Initialize} 


(****  Main  Procedure  Input_Number  ****) 

^  iKiti  :tc  4c  *  III  >K  >l<  *  *  *  *  >l<  ’ll  iK  *  >1:  *  ’ll  4s  4=  *  «  *  4: 4=  ^ 


begin 

Assign(oulput.’prn’); 

Rewrite(ouipui); 

Initialize; 
i  :=  1; 
j;=i; 

exit_procedure  :=  0; 
repeat 

number  :=  ” ; 
exit_cell  :=  1); 
decimals  :=  0; 

Cursor_Cell(i.j); 

celljext; 

Cell_Rite(strg(matrx.data[i.j])); 

matrx.data[i,j]:=matrx.daialj,i]; 

Cursor_Cell(i.j); 

repeat 

key  ;=  readkey; 

if  Ord(key)  =  0  then  key2  :=  readkey;  { Read  Extended  Key  Code } 

{  Writeln(output,’key  l=’,key.’  key2=’.key2);  } 
case  Ord(key)  of 

48..57  :  If  length( number)  <  Cell_Length  then  char_ok(key,number) 

{  Numbers }  else  toojong; 

return  :  If  length(nuniber)>0  then  begin 

exec_reiurn(number.matrx.data[i,j].exit_cell); 

If  i  =  matrx.rows  then  begin 
i  :=  1 ;  { was  on  bottom  row} 

j  :=j+l; 
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end  { if  i  begin} 
elsei  :=i+l; 
end  {if  length  begin) 
else  begin 
rewrit(i,j,number); 

i  :=  i+1; 
exit_cell  :=  1 ; 
end;  {else  begin) 

decimal  :  If  decimals  =  0  then 

If  length(number)  <  Cell_Length  then  begin 
char_ok(key  .number) ; 
decimals  :=  1 ; 
end  {begin) 
else  toojong; 

0  :  begin 

case  Ord(key2)  of 
left_arrow  :  begin 

If  length(number)>f)  then 
exec_return(number,matrx.data[i,j),exit_cell) 
else  rewrit(i,j.number); 

end; 

righi_arrow  ;  begin 

If  length(number)>()  then 
exec_return(number,matrx.data[i,j],exit_cell) 
else  rewrii(i.i.number); 

j 

end; 

up_arrow  :  begin 

If  lengih(nuniber)>0  then 
exec_return(number,matrx.data{i,j],exit_cell) 
else  rewritd.j.nuniber); 
i:=i-l; 
end; 

down_arro\v  :  begin 

If  lengih(number)>l)  then 
exec_return(number.matrx.data{i.j).exit_cell) 
else  rewrit(i.j.number); 
i  :=  i+1; 
end; 

FIO  :  begin 

If  length(number)  >  0  then 
exec_renirn(number,matrx.data[i,j],exit_cell) 
else  rewrit(i.j.number); 
exit_procedure  :=  1 ; 
end; 

end;  {case  Ord(key2)) 
exii_cell  :=  1; 
end;  {begin} 
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backspace  :  If  length(number)>0  then  begin 

If  number[lengih(number)]=’.*  then  decimals:=0; 
number  :=  Copy  (nuniber,I,(Iength(number)-I)); 
SetFillStyle(  1 ,  { Solid  Pattern } 

7):  {Light  Gray  is  Highlighted  Cell  Background} 

Bar(GetX-W.Get  Y+H- 1  .GetX.GetY); 

MoveRel(-W.O); 

end; 

escape  :  begin 
number 

With  Viewport  do  begin 
SeiFillStyle(l.  {Solid  Pattern) 

7);  {Light  Gray  is  Highlighted  Cell  Background} 
Bar(O.O.X2-XLY2-Yl);  end; 

Cursor_Cell(i.j); 

end; 

plus  :  If  length(number)  =  0  then  char_ok(key,number); 
minus  ;  if  length(number)  =  0  then  char_ok(key, number); 


else  ;  {Do  Nothing  if  other  keys  are  pressed} 

end;  {case  Ord(key)} 

WrapAround; 
until  exit_cell  =  1 ; 
until  exit_procedure  =  1 ; 

SetViewPort(0,(),GetMaxX.GetMaxY,True); 

TLX  ;=  X-2*W;  TRX  :=  TLX+W*24; 

BLY  :=  Y+round(H*(matrx.rows+ 1 .5)); 

SetFillSiyle(l.l);  {Solid,  Blue} 

Bar(Round((TLx+TRx)/2- 

15*W).Trunc(BLy+3.5*H),Round((TLx+TRx)/2+l{)*W),Round(BLy+2.5*H)); 

close(output); 

end;  {input_number) 


begin 

H:=TextHeight(’H’); 

W:=TextWidih(’W’); 

CM:=  X+(W*(Lengih(mai)+3)+W*(matrx.cols*Cell_Length+l)  div  2); 
GetTextSettings(01dStyle2); 

GetViewSenings(ViewPori2); 

SetUp(x.y,W.H.mat.matrx,cell_lengtli.True); 

bracket  s(x,y.W.H,mat.mairx.cell_length.True,MaiColor,MatBackground); 
input_number(m  atrx) ; 

With  ViewPort2  do  SetViewPort(X  1  ,Y  I  ,X2.Y2,Clip); 

With  01dStyle2  do 
begin 


SetTextJustity(Horiz,  Ven); 
SetTextStyle(Fom,  Direction.  CharSize); 
end; 


end:  {M_Input} 


Procedure  GMatWrite(var  matrx:  matx; 
celljength:  Integer; 
dec_places:  Integer; 

mat:  String;  {Input  Matrix  Name} 
x,y:  Integer;  {Location} 

MatColor;  Word;  {Color  of  Matrix} 
MatBackground:  Word;  {Color  of  Matrix  Background} 
MatForeground;  Word);  { Color  of  Characters } 


var 

H:  Integer;  {Height  in  Pixels  of  1  character} 
W:  Integer;  {Width  in  Pixels  of  1  character} 
Viewport:  ViewPortType; 

OldStyle:  TextSeitingsType; 


begin 

GetTextSettings(OldStylc); 

GetViewSettincsf  Viewport); 

W:=TextWidth(’W’); 

H:=TextHeight(’H’); 

SetUp(x,y,W,H.niat.niatrx.cellJcngih.FaIse); 

brackets(x.y.W.H,mat,niatrx.cellJength,False,MatColor,MaiBackground); 

SetColor(MatForeGround); 

for  i:=l  to  matrx.rows  do  for  j:=l  to  matrx.cols  do  begin 
cursor_to_cell(i.J.x.y,W,H,niat,ce!l_length); 

CelI_Write  (strg(matrx.daia[i.j].celljength.dec_places), 
dec_places,celljengthj; 

end; 

With  Viewport  do  SetViewPort(X  1  ,Y  1  ,X2,Y2,Clip); 

With  OldStyle  do 
begin 

SeiTextJustify(Horiz,  Vert); 

SeiTextSiyle(Font,  Direction,  CharSize); 
end; 


end;  {procedure  GMatWriie} 
end.  {unit} 
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Appendix  F 

The  final  unit,  Get_Data  contains  the  program’s  main  sections  and  performs  aQ  calculations  other 

than  file  points  which  make  up  the  actual  dl^ises. 

This  unit  contains  the  following  procedures: 

1 .  Jac  •  which  is  a  version  of  the  Jacobi  algorithm  for  calculating  eigenvalues  and  eigenvectors  of 
symmetric  matrices. 

2.  Get.Data  keyboard  -  receives  the  eiiq>irical  sample  data  for  the  x  matrix  directly  from  die 
keyboard  and  dien  performs  all  necessary  calculations. 

3.  GenerateData  -  generates  theoretical  populations  for  a  given  p  and  £. 

4.  ReadDataEmpirical  •  reads  empirical  sample  data  from  disk. 

5.  ReadTestData  >  reads  empirical  sample  data  from  disk  and  ???  data  from  keyboard,  and  dien 
poforms  a  test  of  the  hypothesis  //o :  po = x. 

Unit  Get  Data; 

{$F+} 

{$0+} 

Interface 


Uses  mathmat.RGra];toa,graph,crt: 

Const 

Mp=4; 

nmat=l; 


Increment=O.OS ;  {Angle  Change ) 

Type 

IntegerArrayS  *  Array  [1..3]  of  integer; 

RealArrayMpbyMpsArray[l..MP,l..MP]  of  Real; 

RealAiTayMp=Array[l..Mp]  OF  Real; 

Real3byl2array=arTay[1..3,1..12]  of  real; 

Procedure  GetDataKeyboard(var  xdata,S:Mathmatmatx;var  xhigh,xlow;Real3byl2array; 
var  cvalue,Mupibar:mathmat.matx; 

var  look;boolean;Var  Eigenvalues, eigenvectors,SbyN, 
evalstar,evecstar:mathmaLmatx;var  ordpdnteger;var  rmatrixrmathmatmatx); 


Procedure  GenerateData(var  txbarpidata,S:Mathmatmatx;var  xhigh,xlow:Real3byl2array; 
var  cvalue,Mu,xbar:mathmat.inatx; 

var  look:boolean;Var  EigenValues.eigenveaors,SigmabyN, 
evalstar,evecstar:madinuLmatx;var  ordpdnteger; 
var  sigma,sbynxmatrix:mathmatmatx); 

Procedure  ReadDataEmirirical(var  xdata,S:MathmaLmatx;var  xhigh,xlow:Real3byl2airay; 
var  cva]ue.Mu.xbar:mathmat.matx; 

var  look:boolean;Var  EigenValues,eigenvectors,SbyN. 
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evalstar.evecstar:mathmai.niatx;  Var  ordp;integer;var  rmatriximathmat.matx); 

Procedure  ReadDataTest(var  xdata.S:Mathmat.maix;var  xhigh,xlow:Real3byl2array; 
var  cvalue,Mu,xbar;mathinat.niatx; 

var  look:boolean;Var.EigenValues,eigenvectors,SbyN, 
evalstar,evecstar:inathmai.matx;var  ordp:integer;var  rmatrix:mathniat.matx); 


Implementation 

Var 

ij,k,kk,l,ll.nrot,ch:integer; 

a,b,c,v,ad:RealArrayMpbyMp; 

d/rRealArrayMp; 

xdata_trans.identity,one,one_trans.onebyoneT.temp, 

temp2,temp3,DMatrix,Dinverse.RMatrixZ, 

Eigenvalues,eigenvectors,Cov.DsqrtEigenVals.N,Q:mathmat.matx; 
grDriver.grMode,EiTCode.gd,gni:imeger; 
oneovern.oneovernnii  nusone:real ; 
choiceistring; 
ordchoice.code:integer; 

Procedure  Jac(  n:integer;Var  v.arRealArrayMpbyMp; 

Var  nrot:inieger;VAR  d:RealArTayMp); 


Label  99; 

VAR 

iq,ip:integer; 

tresh.  thet  a.t  au  .t  .sni  ,s  .h  ,g  .c ;  Re  al ; 
b,z:''RealArrayMp; 

Begin 

new(b); 

new(z); 

FOR  ip:=  1  to  n  do  begin 
FOR  iq;=  1  to  n  do  v[ip.iq]:=(),(); 
v[ip.ip];=l.(); 

End; 

For  ip:=  1  to  n  DO  BEGIN 

b''(ip]:=a[ip,ip]; 

d[ip]:=b''[ip]; 

z^[ip]:=().0 

End; 

nrot:=0; 

FOr  i:=  1  to  50  Do  Begin 
sm:=0.0; 

For  ip:=  1  to  n-1  do 
For  iq:=ip+l  to  n  Do 
sm;=sm+abs(a[ip.iq]); 
lfsni=0.()  then  GOTO  99; 

Ifi 

Else  tresh  :=0.{); 
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For  ip;=l  to  n-1  Do  Begin 
For  iq;=ip+l  to  n  Do  Begin 
g:=100.0  *abs(a[ip.iq]); 

IF  (i>4)  and  (abs(d[ip])+g  =  abs(d[ip])) 
and  (abs(d[iq])+g  =  abs(d[iq]))  then  a[ip,iq]  :=0 
Else  IF  abs(a(ip,iq])>  tresh  Then  begin 
h:=d[iq]-d[ip]; 

If  abs(h)+g  =  abs(h)  Then 
t:=a[ip4q]/h 
Else  begin 

theta:=  0.5*h/a[ip,iq]: 

t:=l  .0/(abs(theta)+sqrt(  1  .Ofsqr(theta))); 
If  theta  <  0.0  then  t:=-t 

End; 

c;=l  .0/sqrt(  l+sqr(t)); 
s:=t*c; 

tau:=s/(1.0fc); 

h:=t*a[ip.ki]; 

z''[ip]:=z^(ip]-h; 

z^[iq]:=z''[iq]+h; 

d[ipl;=d[ip]-h; 

d[iq]:=d(iq]+h; 

a[ip.iq]:=0.0; 

For  j:=l  to  ip-1  do  Begin 
g:=a(j.ip]; 
h:=a(j,ki]; 

a(.j.ip]:=g-s*(h+g*iaii); 

ati.iq]:=h+s*(g-h*iau) 

End; 

Forj:=ip+l  toiq-1  Do  begin 
g:=a[ip,j]; 
h;=a[.i.iq]; 

a[»PJ]:=g-s*(h-t-g*tau); 

a[j.iq]:=h-t-s*(g-h*tau) 

End; 

For  j:=iq+ 1  to  n  Do  Begin 
g:=alip,i]; 
h:=a[iq,j]; 

alip.j]:=g-s*(h+g*iau); 

a[iq.jj:=h+s*(g-h*tau) 

End; 

For  j:=l  to  n  Do  Begin 

g:=vU.ip]; 

h:=v[j.iq]; 

vU.ipi'=g-s*(h+g*tau); 
v[j.iq]  :=h+s*(g-h*iau) 
end; 

nrot:=nrot+l; 

end 

end 

End; 

For  ip:=l  to  n  do  Begin 
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b'^[ip];=b''{ip]+z^[ip]; 

d[ip]:=b^lip]; 

z^[ip]:=0.0 

End 

End; 

WritelnCpause  in  routine  JACOBI’); 
Writeln(’50  iterations  should  not  occur’); 
readln; 

99: 

dispose(z); 

dispose(b); 

end;  {Procedure jaboci) 


Procedure  GetDataKeyboard(var  xdata.S:Mathmat.matx;var  xhigh,xIow:Rea]3byl2array; 
var  cvalue,Mu,xbar:mathniat.matx; 

var  look:boolean;Var  EigenValues.eigenvectors.SbyN. 
evalstar.evecstar:niathmat.matx;varordp:integer;var  nnatrix:mathmat.matx); 


Begin 

If  ordp=3  then 
Xdata.rows:=3 
elseXdata.rows:=2; 

cvalue.rows:=l ;  cvalue.cols:=l ; 
cvalue.data(l.l]:=1.0; 
n.rows;=l;  n.cols:=l; 
n.dataU,ll'.=U).(); 
GMaUnput(n.2,0,’N’.4(),3().3,6.7); 
Xdata.coIs;=Round(n.data[  1,1]); 

For  j:=l  to  ordp  Do  Begin 

For  k:=l  to  Xdata.cols  Do  Begin 

XData.data[.j.k]:=l.(K); 

end; 

end; 


GMatinput(cvalue.3,2.’c  value’. 40,60,3,6.7); 
If  cvalue.data[l.l] 

GMatinput(xdata.6,2,’x  matrix’.36, 120,3,6,7); 
Mat_Transpose(xdata.xdata_trans); 


one.rows:=xdaia.cols;one.cols:=  1 ; 
for  j:=l  to  one.rows  Do  Begin 
for  k:=l  to  one.cols  do  begin 
one.data(j.k]:=1.0; 
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end; 

end; 

Mat_Transpose(one  .onejrans) ; 

identity  .rows:=xdata.cols; 

identity.coIs:=xdata.cols; 

for  j:=l  to  xdata.cols  do  begin 
for  k:=  1  to  xdata.cols  do  begin 
identity.data[j,k]  :=0.0; 
end; end; 

for  k;=l  to  xdata.cols  do  begin 
identity  .data[k,k]:=  1 .0; 
end; 


MatMult(one.one_trans,onebyc)net); 
oneovern:=  1 .0/xdata.cols; 
oneOverNMinusOne:=  1 .0/(xdata.cols- 1 .0); 
mat_k_niult(onebyonet,tenip,oneovern); 
Matsub(identity.temp.temp2); 

(*  calculate  X  bar*) 

niat_k_mult(one,temp3,oneovern); 

niatmult(xdata.tenip.3,xbar); 

Mat_k_mult(xdata.temp,oneovernminusone); 

Matmuli(temp.temp2.iemp.3); 

Matmult(tenip3.xdata_irans.S); 


for  i:=l  to  s.rows  do  begin 
for  j:=l  to  s.cols  do  begin 
a[i,j]:=s.data[i.j]; 
end;end; 

(*  Initialize  D  matrix  *) 
DMatrix.rows:=S.rows;  DMatrix.cols:=S.Cols; 
for  j:=l  to  DMatrix.rows  Do  Begin 
For  k:=l  to  DMatrix.cols  Do  Begin 
DMatrix.data[j,k]:=().(); 
end;end; 

(*  Calculate  D  matrix  from  S  matrix  *) 

For  j:=l  to  DMatrix.rows  Do  begin 
DMatrix.data[j,j]:=sqn(S.daiaIj.j]); 
end; 
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Matlnvert(DMatrix.DInverse); 

MatMult(DInverse,S,tenip); 
MatMult(temp,DInverse.RMairix); 
GMatwrite(RMatrix,5,4,  ’rho’  ,50,2  85 .3,6,7); 


Jac(orcJp,v,a,nrot,d); 


EigenValues.rows:=ordp;Eigenvalues.Cols:=l; 
eigenvectors.rows:=ordp;Eigenveciors.Cols:=ordp; 
For  j:=l  to  ordp  Do  Begin 
(*  allow  neg  ev  *) 

Eigenvalues.daia[j ,  1  ]  :=d[j  ] ; 
end; 

FOr  j;=l  to  eigenvectors.rows  do  begin 
for  k:=l  to  eigenvectors.cols  do  begin 
eigenvectors.data(j.k]:=vU.k]; 
end; end; 


(*  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  the  major  and  minor  axis  of  each  ellipse  *) 

(*  These  are  pul  into  Xhigh  and  XIow  *) 

(*  endpoints  of  axis  -  each  col  is  a  coordinate  for  a  point  *) 

(*  1st  pt  *) 

xhigh[l.l]:=cvalue.daia[l.l]*(sqn(abs(eigenvalues.datall,l)))*v[l,l])+xbar.data[l,l]; 
xhigh[2.1]:=cvalue.daia[l,l]*(sqn(abs(eigenvalues.data(l,lj))*v[2,l])+xbar.data[2,lj; 
(*  2nd  Pt  *) 

xhigh[  1 ,2]:=cvalue.data[  1 . 1  ]*(sqrt(abs(eigenvalues.data[2, 1  ]))*v[  1 ,2])+xbar.data[  1,1]; 
xhigh[2.2]:=cvalue.daia[l,l]*(sqn(abs(eigenvalues.daia[2,lj))*v[2,2])+xbar.daia[2,l]; 

(♦  4th  pt  *) 

xlow[  1,1]  ;=-cvalue.daia[  1 . 1  ]*(sqn(abs(eigenvalues.data[  1 , 1  ]))*v[  1 , 1  ])+xbar.data[  1,1]; 
xlow[2,l]:=-cvalue.data[l,l]*(sqrt(abs( eigenvalues,  data]  l,l]))*v[2,l])+xbar.data[2,l]; 
(♦  5th  Pt  *) 

xlow[  1 ,2]  :=-cva]ue.dat  a(  1 . 1  ]*(sqrt(ab.s(eigenvalues.data|2, 1  ]))*v[  1 ,2])+xbar.data[  1,1]; 
xlow[2,2]  :=-cvalue.dat  a[  1 , 1  ]*(sqn(abs(eigen  values.datai2, 1  ]))*vi2,2])+xbar.datat2,l  ]; 


If  ordp=3  then  begin 

xhigh[3.1]:=cvalue.data[l.l]*(sqn(abs(eigenvalues.datall,l]))*v[3,l])+xbar.data[3,l]; 
xhigh[3.2]:=cvalue.data[l,l]*(sqrt(ab.s(eigenvalues.dataI2,l]))*v[3,2])+xbar.datai3,I]; 
(*  3rd  pt  •) 

xhigh[  1 ,3];=c  value.datal  1 . 1  ]*(sqrt(abs(cigenvalues.data[  3,1  ]))*v[  1 ,3])+xbar.data[  1,1]; 
xhighi2.3]:=cvalue.daiail.l]*(sqrt{abs(eigenvalues.datai3,l]))*v[2,3])+xbar.data[2,l]; 
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xhigh[3,3]:=cvalue.daia[l,l]*(sqn(abs(eigenvalues.data[3,l]))*v[3,3])+xbar.data[3,l]; 

xlow[3,l]:=-cvalue.data[l.l]*(sqrt(abs(eigenvalues.data[l.l]))*v[3,l])+xbar.data[3,l]; 
xlow[3.2]:=-cvalue.data[l.l]*(sqrt(abs(eigenvalues.dataI2,l]))*v[3,2])+xbar.data[3,li: 
(*  6th  pt  *) 

xlow[  1 ,3]  :=-cvalue.dat  a[  1 , 1  ]  *(sqrt(abs(eigenvalues.data[  3. 1  ]))*  v[  1 ,3])+xbar.data[  1,1]; 
xlow[2,3]  :=-cvalue.data[  1 . 1  ]  *(sqrt(abs(eigenvalues.data[  3, 1  ]))*  v[2,3])+xbar.data[2, 1  j; 
xlow[3,3];=-cvalue.daia[l,l]*(sqrt(abs(eigenvalues.data[3.1]))*v[3,3])+xbar.data[3,l]; 
end;  {if} 

(*  Claculations  for  S/N  *) 

oneovern:=  1  .()/n.data[  1,1]; 

Mat_k_mult(S,SbyN,oneovern); 

for  i:=l  to  ordp  do  begin 
for  j:=l  to  ordp  do  begin 
a[i,j]:=SbyN.data[i,j]; 
end;end; 


jac(ordp,v,a,nrot,d); 

EValStar.rows:=ordp;EVaIStar.Cols:=  1 ; 
eVecStar.rows:=ordp;EVecStar.Cols:=ordp; 

For  j:=l  to  ordp  Do  Begin 
(*  allow  neg  ev  *) 

EValStar.daia{j.l]:=d[J]; 

end; 

For  j:=l  to  evecStar.rows  do  begin 
for  k:=l  to  evecSiar.coIs  do  begin 
evecStar.daia[.j,k]:=v[j,k]; 
end; end; 

DsqrtEigenVals.rows:=Rniairix.row.s;DsqriEigenVals.cols:=Rmairix.cols; 
For  i:=l  to  rmairix.rows  do  begin 
For  k;=l  to  ordp  do  begin 
DsqrtEigenVals.dala[i.k]:=().(); 
end;end; 

For  i:=l  to  ordp  do  begin 

DsqnEigenVals.data[i,i]:=sqn(abs(EValstar.data[i,l])); 

end; 

Mat_transpose(evecsiar.temp); 

MatMuli(DSqnEigenVals,temp.iemp2); 

Matmult(evecstar.tenip2.Q); 

Z.rows:=ordp;Z.cols:=round(n.da(a[  1,1]); 

For  i:=l  to  ordp  do  begin 
fork:=l  to  round(n.data[l.l])  do  begin 
z.data[i,k]:=sqrt(2.()*(ln(l/random)))*cos(2.0*pi*random); 

end;end; 
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inatniult(Q,Z.temp); 

MatAdd(temp.niu  .xdata) ; 

C"  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  the  major  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xhigh  and  Xlow  ‘^) 

(*  endpoints  of  axis  -  each  col  is  a  coordinate  for  a  point  *) 

(*  1st  pt  *) 

xhigh[  1 ,4]  :=cvalue.data[  1 , 1  ]  *(sqrt  (abs(eigenvalues.data[  1 , 1  ]))*  vj  1 . 1  ])+xbar.daia[  1,1]; 
xhigh[2.4j:=cvalue.data[  1 ,1  ]*(sqn(abs(eigenvalues.datat  1 ,1  j))*v[2,l  ])+xbar.data[2.1  ]; 
(*  2nd  Pt  *) 

xhigh[  1 ,5]:=cvalue.data[  1  ,l]*(sqrt(abs(eigenvalues.data[2,l]))*v[l,2])+xbar.data[l,l]; 
xhigh[2,5]:=cvalue.datall,l]*(sqrt(abs(eigenvatues.data[2.1]))*v[2,2])+xbar.daia[2,l]; 

(*  4th  pt  ■■  j 

xlow[  1 ,4]  :=-cvalue.daia[  1 . 1  ]*(sqrt(ah.s(eigenvalues.data[  1 , 1  ]))*vf  1 . 1  ])+xbar.dataf  1 . 1  ]; 
xlow[2,4];=-cvalue.datail.l]*(sqn(abs(eigenvalues.data[l.l]))*v[2,l])+xbar.data[2,l]; 
(*  5th  Pt  *) 

xlow[l,5]:=-cvalue.daia(l.l]*(sqrt(ahs(eigenvatues.data[2.1]))*v[l,2])+xbar.data[l,]]; 

xlow[2.5]:=-cvalue.datail,l]*(sqri(abs(eigenvalues.data[2.1]))*v[2,2])+xbar.data[2,l]; 


If  ordp=3  then  begin 

xhigh[3.4]:=cvalue.data[l.l]*(sqrt(abs(eigenvalues.datall,l]))*v[3,l])+xbar.data[3,l]; 
xhigh(3.5]:=cvalue.daia[l.l]*(sqn(abs(eigenvalues.data[2.1]))*vi3,2])+xbar.data[3,l]; 
(*  3rd  pt  *) 

xhigh[1.6]:=cvalue.data[l.l]‘"(sqn(abs(cigenvatues.dataI3.1]))*v[l,3])+xbar.data[l,l]; 

xhigh[2,6]:=cvalue.datail.l]*(sqn(abs(eigenvalues.data(3,l]))*v[2,3j)+xbar.data[2,l); 

xhigh[3.6]:=cvalue.daiall,l]*(sqn(abs(eigenvalues.datal3.1]))*vI3,3])+xbar.data[3,]]: 

xlow[3,4]:=-cvalue.data[l,l]*(sqn(abs(eigenvalues.data[l,l]))*v[3,l])+xbar.data[3,l]; 

xlow[3.5]:=-cvalue.data[l.l]*(sqrt(abs(eigenvalues.data[2,l]))*v[3,2])+xbar.daia[3,l]; 

(*  6th  pi  *) 

xlow[  1 .6]  :=-cvalue.daia[  1 , 1  ]’''(sqrt(abs(eigenvalues.daia[  3. 1  ]))*  v[  1 ,3])+xbar.data[  1,1]; 
xlow[2.6]:=-cvalue.data[l,l]*(sqn(abs(eigenvatues.data[3,l]))*v[2,3])+xbar.data[2.1]; 
xlow[3,6]:=-cvalue.datal  l.l]*(sqn(abs(eigenvalues.data[3.1]))*v[3.3])+xbar.data[3,l]; 
end;  {if} 


(*  OUTPUT  *) 

GMatwrite(Eigenvalues.6.5. ’Eigen  Values’,320,235,3,6,7); 
GmatWrite(Eigenvectors,6,5.’E  vectors’,32(),285.3.6.7); 
Gmatwrite(xbar,5.4.’X  Bar’,32{),  190.3,6,7); 

Gmatwrite(S,5,4,’S  Matrix’ .50, 190,3.6.7); 

Gmatwrite(Sbyn,5 .4.  ’  S/n  ’  .40,2  35. 3.6,7) ; 

OutTextXY(GetMaxX  div  2-90,20, ’PRESS  ENTER  FOR  GRAPH’); 

readln;clrscr; 

end;  (GetDataKeyboard} 
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(*  This  Generates  data  for  the  theoretical  case  and  mixed  case  *) 


Procedure  GenerateData(var  txbar.xdata.S;Mathmat.matx;var  xhigh,xlow;Real3byl2array; 
var  cvalue.Mu,xbar:mathmat.matx; 

var  Iook:boolean;Var  EigenValues,eigenvectors,SigmabyN, 

evalstar,evecstar:mathmat.matx;varordp:integer; 

var  sigma.sbyn,rmatrix;mathmai.maix); 


Var 

oneovem:real; 

Begin 

randomize; 

Mu.rows:=ordp;  Mu.cols:=l;N.rows:=l;N.cols:=l; 
xbar.rows:=ordp;xbar.cols:=l  ;txbar.rows:=ordp;txbar.cols:=l ; 
Cov.rows:=ordp;  Cov.cols;=l; 

Rmatrix.rows:=ordp;  RMatrix.coIs:=ordp; 

N.data[l.l];=l(); 

For  i:=l  to  Mu.rows  do  begin 
Mu.data(i,l]:=l; 

Cov.data[i,l]:=l; 
txbar.data(i.l  ]:=(); 
end; 

For  i:=l  to  Cov.rows  do  begin 
For  k:=l  to  Rmatrix.Cols  do  begin 
Cov.data[i,k]:=l; 

RMatrix.daia[i.k]:=l; 

End;end; 

CValue.rows:=  1;C  Value. Cols:=  1  ;cvalue.data| 

GMatinput(Mu.6,2,#2. ■^0,46,69. .3,6.7); 
if  look=true  then 

GmaUnput(Txbar.6.2.#2.30’.tr  .420.69,3,6,7); 
GMatInput(Cov.6..‘5.#229’'^2’.260,24().3.6,7); 
GMatInput(RMatrix,6..5,’Corr’..36, 120,3,6.7); 

GMatInput(CValue,3.2,’C  value’..390, 180.3,6.7); 

If  cvalue.datafl.l] 

GmatInput(N,3,l.’N’.260.180,3.6.7); 

(*  This  section  calculates  the  Sigma  Matrix  *) 

sigma.rows:=ordp;sigma.cols:=ordp; 

sigmabyn.rows:=ordp;signiabyn.cols:=ordp; 

s.rows:=ordp;s.cols:=ordp; 

sbyn.rows:=ordp;sbyn.cols:=ordp; 

For  i:=l  to  Rmatrix.rows  do  Begin 
For  k;=l  to  Rmatrix.cols  do  begin 

Sigma.data[i,k]:=Rniatrix.data[i,k]*sqn(Cov.data[i.l])*sqrt(Cov.data[k,l]); 

end;end; 
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For  i:=l  to  ordp  do  begin 
sigma.data[i,i]:=Cov.data[i,I]; 
end; 

for  i:=l  to  ordp  do  begin 
for  j:=l  to  ordp  do  begin 
a[i,j]:=sigma.data[i,j]; 
end;end; 


jac(ordp,v,a,nrot,d); 

EigenValues.rows:=ordp;Eigenvalues.Cols:=l; 

eigenvectors.rows:=ordp;Eigenvectors.Cols:=ordp; 

For  j:=l  to  ordp  Do  Begin 
(•  allow  neg  ev  *) 

Eigenvalues.daiaU.l];=d[i]; 

end; 

Forj:=l  to  eigenvectors.rows  do  begin 
for  k:=l  to  eigenveciors.cols  do  begin 
eigenvectors.daia[.j.k]:=v[j.k]; 
end; end; 

DsqrtEigenVaIs.rows;=Rmairix.rows;DsqrtEigenVals.cols:=Rniatrix.cols; 
For  i:=l  to  miatrix.rows  do  begin 
For  k:=l  to  ordp  do  begin 
DsqrtEigenVals.data[i.k];=().(); 
end;end; 

For  i:=l  to  ordp  do  begin 

DsqrtEigenVals.data(i.i]:=sqn(abs(Eigenvalues.data[i,l])); 

end; 

Mat_transpose(eigenveciors,iemp); 

MatMult(DSqrtEigenVals,temp.tenip2); 

Maimuli(eigenveciors.ienip2.Q); 

Z.rows:=ordp;Z.cols:=round(n.datal  1.1]); 

For  i:=l  to  ordp  do  begin 
fork:=l  to  round(n.data[l.l])  do  begin 
z.data[i.k]:=sqn(2.0*(lnO/random)))*cos(2.0*pi*random); 

end;end; 

xbar.rows:=ordp;xbar.coIs:=round(n.daia[  1.1]); 

fori:=l  toround(n.daia(l.l])  do  begin 
xbar.data[  1  .i]:=mu.data[  1.1]; 
xbar.data[2.i]:=mu.daia[2.1]; 

If  ordp=  3  then 

xbar.data[3.i]:=Mu.daia[3.1]; 

end; 
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matniult(QZ,temp); 

MatAdd(temp,xbar  .xdat  a); 
xbar.coIs:=l: 

(*  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  the  major  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xhigh  and  Xlow  *) 

(*  endpoints  of  axis  -  each  col  is  a  coordinate  for  a  point  *) 

(*  1st  pt  *) 

xhigh[  1,1]  :=cvalue.data[  1 , 1  ]*(sqrt(abs(eigenvalues.;;ata[  1 , 1  ]))*  v[  1 , 1  ])+Mu.data[  1,1]; 
xhigh[2, 1  j  :=cvalue.dat a[  1 , 1  ]*(sqrt(abs(eigenvalues  Jatal  1 ,1  ]))* v[2, 1  ])+Mu.datai 2, 1  ] ; 
(*  2nd  Pt  *) 

xhigh[  1 ,2]  :=cvalue.data[  1 , 1  ]*(sqn(abs(eigenvalues.data[2, 1  ]))*  vt  1 ,2])+Mu.data[  1,1]; 
xhigh[2,2]:=cvalue.datail,l]*(sqn(abs(eigenvalues.data[2,l]))*v[2,2])+Mu.data[2,l]; 

(*  4th  pt  *) 

xlow[  1,1]  :=-cvalue.daia[  1 . 1  ]*(sqn(abs(eigenvalues.data[  1 , 1  ]))*v[  1 .1  ])+Mu.data[  1,1]; 
xlow[2, 1  ]:=-cvalue.data(  1 , 1  ]*(sqn(ahs(eigenvalues.data[  1.  l]))*v[2, 1  ])+Mu.data[2,l  ]; 
(*  5th  Pt  *) 

xlow[  1 ,2]:=-cvalue.data[  1 . 1  ]*(sqrt(abs(eigenvalues.data[2, 1  ]))*  v[  1 ,2])+Mu.data[l  ,1  ]; 
xlow[2,2]:=-cvalue.data[l.l]*(sqn(abs(eigenvalues.data[2,l]))*v(2,2])+Mu.data[2,l]; 


If  ordp=3  then  begin 

xhigh(3.1];=cvalue.daia(l,ll*(sqn(abs(eigenvalues.datall.l]))*vl3,l])+Mu.datal3,l]; 
xhigh[3.2]:=cvalue.daia[l.l]*(sqn(abs(eigenvalues.data[2,l]))*v[3,2])+Mu.datai3,l]; 
(*  3rd  pt  *) 

xhigh[  1 .3]:=cvalue.daia[  1 . 1  ]*(sqn(abs(cigenvalues.data[3,l  ]))*v[  1 ,3])+Mu.data[  1,1]; 
xhigh[2.3]:=cvalue.data[l,l]*(sqrt(abs(eigenvalues.dataI3,l]))*v[2,3])+Mu.data[2,l]; 
xhigh[3,3];=cvalue.datail,lj*(sqn(abs(eigenvalues.dataI3,l]))*vi3,3])+Mu.data[3,l]; 
xlow[3,l];=-cvalue.daia[l,l]*(sqrt(abs(eigenvalues.data[l,l]))*v(3.1]>+Mu.data[3,l]; 
xlow[3,2];=-cvalue.daia[l.l]*(sqrt(abs(eigenvalues.datai2,l]))*v[3,2])+Mu.data[3,l]; 
(*  6lh  pt  *) 

xlo\v[  1.3]  :=-cvalue.dai  al  1 . 1  ]  *(sqrt(abs(eigenvalues.data[  3. 1  ]))*vl  1 ,3])+Mu.data[  1,1]; 
xlow[2,3]:=-cvalue.data[l,l  j*(sqrt(abs(eigenvalues.data[3,l]))*v[2,3])+Mu.data[2,l]: 
xlow[3.3];=-cvaIue.daiail.l]*(sqrt(abs(eigenvalues.daiai3.1]))*v[3.3])+Mu.data[3,l]; 


end;  (if) 

(*  Claculations  for  Sigma/N  *) 

oneovern:=l  .0/n.data(  1,1]; 
Mat_k_muli(Signia.SigmabyN.oneovern); 

for  i:=l  to  ordp  do  begin 
for  j:=l  to  ordp  do  begin 
a[i,j]:=SigmabyN.Oata[i,J]; 
end;end; 
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jac(ordp,v.a,nrot.d); 

EVaIStar.rows:=ordp;EValStar.Cols:=  1 ; 
eVecStar.rows:=ordp;EVecStar.Cols;=ordp; 

For  j:=l  to  ordp  Do  Begin 
(*  allow  neg  ev  *) 

EValStar.datay,  1  ]  :=d|j] ; 
end; 

For  j:=l  to  evecStar.rows  do  begin 
for  k:=l  to  evecStar.cols  do  begin 
evecStar.dataU  ,k]  := v(j  ,k] ; 
end; end; 

DsqrtEigenVals.rows:=Rmatrix.rows;DsqrtEigenVals.cols:=Rinatrix.cols; 

For  i:=l  to  rmatrix.rows  do  begin 
For  k:=l  to  ordp  do  begin 
DsqrtEigenVals.data[i,k]:=0.0; 
end;end; 

For  i:=l  to  ordp  do  begin 

DsqrtEigenVals.datali,i]:=sqn(abs(EVatstar.data[i,l])); 

end; 

Mat_transpose(evecsiar.temp); 

MatMull(DSqnEigenVals.temp.temp2); 

Matmult(evecsiar,temp2.Q); 

Z.rows:=ordp;Z.coIs;=round(n.data[  1.1]); 

For  i:=l  to  ordp  do  begin 
for  k;=l  to  round(n.daia[  1,1])  do  begin 
z.daiali,k]:=sqn(2.()*(lnO/randoni)))*cos(2.{)*pi*random); 

end;end; 

(*  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  the  ma  jor  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xhigh  and  Xk)w  *) 

(*  endpoints  of  axis  -  each  col  is  a  coordinate  for  a  point  *) 

(*  1st  pt  *) 

xhigh[1.4]:=cvalue.data[l.l]*(sqrt(abs(eigenvalues.daia[l.l]))*v[l,l])+Mu.data[l,l]; 
xhigh[2.4]  ;=c  value.dat  ai  1 . 1  ]*(sqrt(abs(eigenvalues.data(  1 , 1  ]))*  v[2, 1  ])+Mu.data[2, 1  ] ; 
(*  2nd  Pt  *) 

xhigh[l,5]:=cvalue.data(l,l]*(sqrt(abs(eigenvalues.data[2,l]))*v[l,2])+Mu.data[l,l]; 

xhigh[2.5]:=cvalue.data[l.l]*(sqrt(abs(eigenvalues.data[2,l]))*v[2,2])+Mu.data[2.1]; 

(*  4th  pt  *) 

xlow[1.4]:=-cvalue.data[l.l]*(sqrt(abs(eigenvalues.data[l,l]))*v[l,l])+Mu.data[l,l]; 
xlowi2,4]  :=-cvalue.datai  1 . 1  ]  *(sqrt(abs(eigenvalues.data(  1 , 1  ]))*  v[2. 1  ])+Mu.data[2, 1  j; 
(*  5th  Pt  ♦) 

xlow[l,5]:=-cvalue.data[l,l]*(sqrt(abs(eigenvalues.data[2,l]))''‘v[l,2])+Mu.dataIl,l]; 

xlow[2.5]:=-cvalue.data[l,l]*(sqrt(abs(eigenvalues.data[2,l]))*v[2,2])+Mu.data[2,l]; 


If  ordp=3  then  begin 
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xhigh[3,4]:=cvalue.clata[  1 . 1  ]*(sqri(abs(eigenvalues.data[  1 ,1  ]))*v[3,l])+Mu.data[3,l]; 
xhigh[3,5]:=cvalue.dataIl.lj*(sqn(abs(eigenvalues.data[2,l]))*v[3,2])+Mu.data[3,l]; 
(•  3rd  pt  ♦) 

xhighl  1 .6]  :=c  value.dat  a[  1,1]  *(sqn(abs(eigenvalues.daia[3, 1  ]))*  v[  1 ,3])+Mu.data[  1,1]; 
xhigh[2,6]:=cvalue.data[  1 . 1  ]*(sqrt(abs(eigenvalues.data[3, 1  ]))*vi2,3])+Mu.dataI2, 1 J; 

xhigh[3,6]:=cvalue.data[l,l]*(sqn(abs(eigenvalues.data[3,ll))*v[3,3])+Mu.datat3,l]; 
xlow[  3,4]  :=-cvalue.data[  1 , 1  ]*(sqrt(abs(eigenvalues.datal  1 , 1  ]))*v[  3, 1  ])+Mu.data[3, 1  ] ; 
xlow[3,5]:=-cvalue.daia[l,l]''‘(sqrt(abs(eigenvalues.data[2,l]))*v[3,2])+Mu.data[3,l]; 

(*6thpt*) 

xlow[  l,6]:=-cvalue.data[  1 ,1  ]*(sqrt(abs(eigenvalues.data[3.1]))*v[l  .3])+Mu.data[l,l]; 
xlow[2,6];=-cvalue.daiail,l]*(sqn(abs(eigenvalues.daiaI3,l]))*vI2,3])+Mu.dataI2,l]; 
xlow[3,6]:=-cvalue.data[l,l]*(sqrt(abs(eigenvalues.data[3,l]))*v[3,3])+Mu.data[3,l]; 
end;  {if} 

(*  IF  true  then  case  #5  theory  and  empirical  *) 

If  look=irue  then  begin 

xdata.rows:=ordp;xdaia.cols:=Round(n.data[l,l]); 


Mat_Transpose(xdaia,xdaiajran.s); 
one.rows:=xdaia.cols;one.cols:=  1 ; 
for  j:=l  to  one.rows  Do  Begin 
for  k:=l  to  one.cols  do  begin 
one.daiat.j.k]:=l.(); 
end; 
end; 

Mat_Transpose(one,one_trans); 

identity.rows:=xdaia.cols; 

identity.cols:=xdaia.cols; 

for  i:=l  to  xdaia.cols  do  begin 
for  k:=  1  to  xdaia.cols  di)  begin 
identity.data[j,k]:=().(); 
end; end; 

for  k:=l  to  xdata.cols  do  begin 
identity.data[k.k]:=l.(); 
end; 


MatMuli  (one.onejrans.onebyonet ) ; 
oneovern;=  1 .0/xdaia.cols; 
oneOverNMinusOne;=  1  .OAxdaia.cols- 1 .0); 
mat_k_mult(onebyonet.ienip.oneovcrn); 
Matsub(ideniity,temp,iemp2); 
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(*  calculate  X  bar*) 

mat_k_inult(one.tenip3.oneovern); 

inatinult(xclata,temp3,xbar); 

Mai_k_inult(xdata,temp,oneovemminusone); 

Matniult(temp,temp2,temp3); 

Matinult(temp3,x(lata_trans,S); 


for  i:=l  to  s.rows  do  begin 
for  j:=I  to  s.cols  do  begin 
a[i.j]:=s.data[i,j]; 
end;end; 

(*  Initialize  D  niaU'ix  *) 
DMatrix.rows:=S.rows;  DMalrix.cols:=S.Cols; 
for  j;=l  to  DMatrix.rows  Do  Begin 
For  k:=l  to  DMatrix.cols  Do  Begin 
DMatrix.data[j,k]:={).0; 
end;end; 

(*  Calculate  D  matrix  from  S  matrix  *) 

For  j:=l  to  DMatrix.rows  Do  begin 
DMatrix.data[j.j]:=scin(S.data(J,J]); 
end; 

Matlnvert(DMatrix.Dlnverse); 

MatMult(DInverse.S.temp); 

MatMultCtemp,Dlnverse,RMatrix); 


jac(ordp,v.a.nrot.d);  (*  get  eigenvalues  and  Evectors*) 

Evalstar.rows;=ordp;Evalstar.Cols:=  1 ; 
evecstar.rows:=ordp;E\'ecstar.CoIs:=ordp; 

For  j:=l  to  ordp  Do  Begin 
(*  allow  neg  ev  *) 

Evalstar.dataU,  1  ]:=d[j]; 
end; 

FOr  j:=l  to  evecstar.rows  do  begin 
for  k:=l  to  evecstar.cols  do  begin 
evecstar.data[j.k]:=v[j,k]; 
end; end; 

(*  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  the  major  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xhigh  and  Xlow  *) 

(*  endpoints  of  axis  -  each  col  is  a  coordinate  for  a  point  *) 

(♦  1st  pt  *) 

xhigh[1.71:=cvalue.data[l,l]*(sqn(abs(eigenvalues.data[l,l]))*v[l,l])+xbar.data[l.l]; 

xhigh[2,7]:=cvalue.data[l.l]*(sqrt(ab.s(eigenvalues.data[l,l)))*v[2.1])-»-xbar.dataI2,l]; 
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(*  2nd  Pi  *) 

xhigh[  1 ,8]:=cvalue.daia[  1 , 1  ]*(sqn(abs(eigenvalues.data[2,l  ]))*v[  1 ,2])+xbar.data[l  ,1]; 
xhigh[2.8j:=cvalue.data[l,l]*(sqn(abs(eigenvalues.datai2,li))*v[2,2])+xbar.data[2,lj: 

(*4thpi*) 

xlow[  l,7]:=-cvalue.data[  1 . 1  ]*(sqrt(abs(eigenvalues.datal  l.l]))*v[  1 ,1  ])+xbar.data[  1,1]; 
xlow(2,7]:=-cvalue.daia[  1 . 1  ]*(sqii(abs(eigenvalues.data[  1,1  ]))*v[2,l  ])+xbar.data[2,l]; 
(*  5th  Pi*) 

xlow[  1 ,8]  :=-cvalue.dala[  1 , 1  ]*(sqri(abs(eigenvalues.dala(2, 1  ]))*v[  1 ,2])+xbar.daia[  1,1]; 
xlow[2,8]:=-cvalue.daiaIl,l]*(sqn(abs(eigenvalues.daiai2,l]))*v[2,2])+xbar.data[2,l]; 


If  ordp=3  then  begin 

xhigh[3,7]:=cvalue.data[  1 ,1  ]*(sqn(abs(eigenvalues.daia[  1 ,1  ]))*v[3,l  ])+xbar.data[3,l  ]; 
xhigh[3.8]:=cvalue.data[l,l]*(sqil(abs(eigenvalues.data[2,l]))*v[3,2])+xbar.data[3,l]; 
(*  3rd  pi  *) 

xhigh[  1 .9]:=cvalue.data[  1 , 1  ]*(sqn(abs(eigenvalues.dataI3,l  ]))*v[  1 ,3])+xbar.daia[  1.1]; 
xhighI2.9]:=cvalue.data(l.l]*(sqn(abs(eigenvalues.dataI3,l]))*v[2,3])+xbar.data[2,l]; 
xhigh[3,9]:=cvalue.data[l,l]*(sqn(abs( eigenvalues.  data[3,l]))*v[3,3])+xbar.data[3,l]; 
xlow[3.7]:=-cvalue.daia[l.l]*(sqn(abs(eigenvalues.datan.l]))*v[3.1])+xbar.data[3,l]; 
xlow[3.8]:=-cvalue.data(l,l]*(sqn(abs(eigenvalues.data[2,l]))*v[3,2])+xbar.data[3,l]; 

(*  6th  pt  *) 

xlow(  1 .9]  :=-c  val  ue.dai  a[  1 , 1  ]  *(sqn(abs(eigenvalues.data[  3, 1  ]))*  v[  1 .3])+xbar.dataI  1,1]; 
xlow(2.9]:=-cvalue.data[l,l]*(sqn(abs(eigenvalues.dataI3.1]))*v[2,3])+xbar.data[2,l]; 
xlow(3.9]:=-cvalue.data(l,l]*(sqr((abs(eigenvalues.data(3.1]))*v[3,3])+xbar.daia[3,l]; 
end;  (if) 


(*  Claculaiions  for  S/N  *) 

oneovern:=  1  .()/n.dala[  1.1]; 
Mat_k_niult(S.ShyN.oncovern); 

for  i:=l  to  ordp  do  begin 
for  j:=l  to  irdp  do  begin 
a[i.j]:=SbyN.data[i.j]; 
end;encl. 


jacfordp,  V .  a  ,nroi  .d) ; 

EValStar.rows:=ordp;EValSiar.Cols:=l; 
eVecSiar.rows:=ordp;EVecSiar.Cols;=ordp; 
For  j:=l  to  ordp  Do  Begin 
(♦  allow  neg  ev  *) 

EValStar.dataU,  1 )  :=d[.j] ; 
end; 

For  j:=l  to  evecStar.rows  do  begin 
for  k:=l  to  eveeStar.cols  do  begin 
evecStar.data[.j.k]:=vLj.k]; 
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end;  end; 

DsqrtEigenVals.rows:=Rmatrix.rows;DsqnEigenVals.cols:=Rmatrix.cols; 

Fot  i:=l  to  miatrix.rows  do  begin 
For  k:=l  to  ordp  do  begin 
DsqrtEigenVals.data[i,k]:=0.0; 
end;end; 

For  i:=  1  to  ordp  do  begin 

DsqrtEigenVals.data[i,i):=sqn(abs(EValstar.data[i,l])); 

end; 

Mat_transpose(evecstar,temp) ; 

MatMuIt(DSqrtEigen  V  als,tenip.temp2) ; 

Matniult(evecstar,temp2,Q); 

Z.rows:=ordp;Z.cols:=round(n.data[  1.1]); 

For  i:=l  to  ordp  do  begin 
for  k:=  1  to  round(n.data[  1,1])  do  begin 
z.data[i.k];=sqn(2.0*(ln(l/random)))*cos(2.0*pi*random); 

end;end; 

(*  This  section  uses  the  Eigen  values  and  vectors  to  find  ‘'‘) 

(*  the  endpoints  of  the  major  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xhigh  and  Xlow  *) 

(*  endpoints  of  axis  -  each  col  is  a  c(X)rdinate  for  a  point  *) 

(*  1st  pt  *) 

xhighi  1.10]  :=cvalue.data[  1 . 1  ]*(sqn(abs( eigenvalues.  data[  1 . 1  ]))*v[  1 , 1  ])+xbar.data[  1,1]; 
xhigh|2.10]:=cvalue.daiall.l]*(sqrt(abs(eigenvalues.datall.l]))*v[2.1])+xbar.data[2,l]; 
(*  2nd  Pi  *) 

xhigh[l.l  l]:=cvalue.data(l.l]*(sqn(abs(eigenvalues.daia[2,l]))*v[l,2])+xbardaia[l,l]; 
xhigh(2.11]:=cvalue.daia[l.l]*(sqn(abs(eigenvalues.datai2.1]))*v[2,2])+xbar.data[2,l]; 

(*  4th  pi  *) 

xlow[  1 . 10]  :=-cvalue.data[  1 . 1  ]  *(sqrt(abs(eigen  v'alues.data(  1 , 1  ]))*  v[  1 , 1  ])+xbar.data[  1 , 1  ]; 
xlow[2.10]:=-cvalue.data[l,l]*(sqri(abs(eigenvalues.datail,l]))*vi2,l])+xbar.data[2,l]; 
(*  5th  Pt  *) 

xlow[  1,11  ]  :=-cvalue.data(  1 . 1  ]*(sqrt(ab.s(eigenvalues.dataI2, 1  ]))*  vl  1 ,2])+xbar.data[  1,1]; 
xlow[2,l  l]:=-cvalue.datal  l.l]*(.sqri(ab.s(eigenvalues.daia[2,l]))*vi2,2])+xbar.daia[2,l]; 


If  ordp=3  then  begin 

xhigh(3.10]:=cvalue.datall.l]*(sqn(abs(eigenvalues.data[l,l]))*v[3,l])+xbar.data[3,l]; 
xhigh[3.1 1]:=cvalue.data[l,l]*(sqrt(abs(eigenvalues.datai2,l]))*vi3,2])+xbar.datai3,l]; 
(*  3rd  pt  *) 

xhigh[  1 . 1 2]:=cvalue.data[  1 , 1  ]*(sqrt(abs(eigenvalues.datal  3,  l]))*vl  1 ,3])+xbar.data[  1,1]; 
xhigh[2,12]:=cvalue.daia(l,l]*(sqrt(abs(eigenvalues.data[3,l]))*v[2,3])+xbar.data[2,l]; 
xhigh[3.12]:=cvalue.data[l.l]*(sqrt(abs(eigenvalues.data[3.1]))*v(3,3])+xbar.data[3,l]; 
xlow[3.10]:=-cvalue.data(l.l]*(sqrt(abs(eigenvalues.daTa[l,l]))*v[3,l])+xbar.data[3,l]; 
xlow[.3.1  l];=-cvalue.datail.l]*(sqri(abs(eigenvalues.data[2.1]))*v[3,2])+xbar.data[3,l]; 

(*  6th  pt  *) 

xlowll.l2];=-cvalue.data[l,l]*(sqrt(abs(eigenvalues.data[3,l]))'*v[l,3])+xbar.data[l,l]; 

xlow[2,12];=-cvalue.datail,l]*(sqri(abs(eigenvalues.data[3,l]))*v[2.3])+xbar.data[2,l]; 
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xIow[3,l  2]:=-cvalue.daia[  1 ,  l]*(sqn(abs(eigenvalues.data[3,l  ]))*v[3.3])+xbar.data[3, 1]; 
end;  {if} 

GMatWrite(S.5.4.’S’.390.210.3.6.7); 

GMatWriie(SbyN,5,4.’S/n’,39().270.3,6.7); 

end;  (*if  option  5*) 

(*  OUTPUTS  *) 

GMATWRITE(xdata,6,2.**,2a30.3.6.7); 

GMatwriie(Xbar.6.2,’Xbar’ .225.69.3.6,7); 

GmatWriie(Sigma.5.3,#228.46.2 10.3.6.7); 
GmatWrite(SigmabyN,5.3,#228’/N’.46.270.3,6.7); 

OutTextXY(GetMaxX  div  2-9().20.’PRESS  ENTER  FOR  GRAPH’); 
GMatwrite(RMairix.5.4.’rho’.290.120.3.6.7); 

readln;  clrscr; 

look:=false; 

end; 

{ General  eDal  a} 


Procedure  ReadDaiaEmpiricaKvar  xdaia.S:Maihmat.matx;var  xhigh.xlow:Real3byl2array; 
var  cvalue,Mu.xbar:maihniai.malx; 

var  look:boolean;Var  EigenValues.eigenvectors,SbyN, 
evalsiar.evccsiar;maUiniai.niaix;var  ordp:integer;var  rmatrix.maihmat.matx); 


Var 

EmpData:iext; 

EmpDaia  1 : array ( 1  ..3, 1 ..  1 5]  of  real ; 
begin 

CValue.rows:=  1  ;C  Valiie.Cols:=  1  ;cvalue.daia(  1 , 1  ]:=  1 ; 
N.rows;=  1  ;N.cols;=  1  ;N.data[  1 . 1  ];=  1 0; 
GMatlnpui(CValue.3.2,’C  Valuc’.SO.  120.3.6.7); 

If  cvalue.daiall.l] 

GmatInpui(n.2.1.’N’.GetMaxX  DIV  2.120.5,4.7); 

xdata.rows;=ordp;xdata.cols:=Round(n.daia[l,l]); 
AssignfEmpDaia,  ’  c:\Empdal  a.dai  ’ ); 

Reset  (EmpDaia); 


fori:=l  ioround(n.daia[l,l])  do  begin 
read(EmpDaia.EnipDaiaI  ( 1  .i]);  end; 
fori:=l  toround(n.daia[l,l])  do  begin 
read(EmpDaia.EmpDaial  [2.i]); 
end; 

If  ordp=3  then  begin 
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fori:=l  to  Round(n.data[l.l])  do  begin 
read(EmpData,EmpDaial  [3.i]); 
end;  {for} 
end;  (if) 

for  I:=  1  to  ordp  do  begin 

For  J:=l  to  round(n.data[l,l])  do  begin 
xdata.data[I,J]:=EmpDatal  [I,J]; 

End;end; 


GMATWRITE(xdata.6,2,”, 20,30.3,6.7); 

Mat_Transpose(xdat  a.xdat  ajrans) ; 

one.rows:=xdata.cols;one.cols:=  1 ; 

for  j:=I  to  one.rows  Do  Begin 
for  k:=l  to  one.cols  do  begin 
one.data[j,k]:=1.0; 
end; 
end; 

Mat_Transpose(one.one_trans); 

identity.rows:=xdata.a)ls; 

identity.cols;=xdata.cols; 

for  j:=l  to  xdata.cols  do  begin 
for  k:=  1  to  xdata.cols  do  begin 
identity.dataU.k]  :=().(); 
end;  end; 

for  k:=l  to  xdata.cols  di)  begin 
identity. data[k,k]:=  1.0; 
end; 


MatMuli(one,onejrans.onebyonet); 
oneovern:=  1 .0/xdata.cols; 
oneOverNMinusOne:=  1 .()/( xdata.cols- 1 .0); 
mat_k_mult(onebyonet.tenip.oneovern); 
Matsub(identity,ienip.temp2); 

(*  calculate  X  bar*) 

mat_k_niult(one.tenip3,oneovern); 

inatmult(xdata.tenip3.xhar); 


Mat_k_mult(xdata.ienip,oneovernminiisone); 

Matmult(temp.temp2.tenip3); 

Matmult(tenip3.xdata_trans.S); 
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for  i:=l  to  s.rows  do  begin 
for  j:=l  to  s.cols  do  begin 
aliol:=s.data[i.j]; 
end'.end; 

(*  Initialize  D  matrix  *) 
DMatrix.rows:=S.rows;  DMatrix.cols:=S.Cols; 
for  j:=l  to  DMatrix.rows  Do  Begin 
For  k:=l  to  DMatrix.cols  Do  Begin 
DMatrix.dataIj.k]:=0.0; 
end;end; 

(*  Calculate  D  matrix  from  S  matrix  *) 

For  j:=l  to  DMaU'ix.rows  Do  begin 
DMairix.data(j.j];=sqrt(S.data[jj]); 
end; 

MatInveri(DMatrix,DInverse); 

MatMuli(DInverse.S.temp); 
MatMult(temp.Dlnverse,RMairix); 
GMatwrite(RMatrix,5.4,’rlH'’. 50.285, 3,6.7); 


jac(ordp,v.a.nroi,d); 


EigenValues.row.s:=ordp;Eigenvalucsi.Cols:=l; 

eigenvectors.rows:=ordp;Eigenveciors.Cols:=ordp; 

For  j:=l  to  ordp  Do  Begin 
(*  allow  neg  ev  *) 

Eigenvalues.daiaLi.l  ]:=d(j]; 
end; 

FOr  j:=l  to  eigenveciors.rows  do  begin 
for  k:=l  to  eigenveciors.culs  do  begin 
eigenvectors.daiay.k]:=v(i,k]; 
end; end; 

(♦FIXED*) 

(*  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  the  major  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xhigh  and  Xlow  *) 

(*  endpoints  of  axis  -  each  col  is  a  coordinate  for  a  point  *) 

(*  1st  pt  *) 

xhigh[  1,1]  :=cvalue.dat  a[  1 . 1  ]*(sqn(abs(eigenvalues.data[  1 , 1  ]))*  v[  1 . 1  ])+xbar.datat  1,1]; 
xhigh[2. 1  ];=cvalue.datal  1 . 1  ]*(sqrt(abs(eigenvalues.data[  1 ,1  ]))*v[2,l  ])+xbar.data(2,l  ]; 
(*  2nd  Pt  *) 

xhigh]  1 .2]:=cvalue.datal  1 . 1  ]*(sqn(abs(eigenvalues.data(2.1  ]))*v|  1 ,2])+xbar.data[  1,1]; 
xhigh(2,2];=cvalue.daia[l,l]*(sqrt(abs(eigenvalues.data[2,l]))*v[2,2])+xbar.data[2,l]; 

(*  4th  pt  *) 

xlow]  1,1]  :=-cvalue.data]  1 . 1  ]*(sqn(abs(eigenvalues.dataj  1. 1  ]))*v]  1 ,1  ])+xbar.datal  1,1  ]; 


xlow[2,l]:=-cvalue.data[l.l]*(sqrt(abs(eigenvalues.data[l,l]))*v[2,l])+xbar.<lata[2,ll; 

(*  5th  Pt  *) 

xlow[1.2]:=-cva]ue.data[l,l]*(sqn(abs(eigenvalues.dataI2,l]))*v[],2])+xbar.data[l,l]; 

xlow[2,2]:=-cvalue.data[l,l]*(sqn(abs(eigenvalues.daia[2.1]))*v[2,2])+xbar.data[2,lj; 


If  ordp=3  then  begin 

xhigh[3,l]:=cvalue.datall,l]*(sqn(abs(eigenvalues.data[l,l]))*v[3,l])+xbar.data[3,l]; 

xhigh[3,2i:=cvalue.data[l,l]*(sqrt(abs(eigenvalues.data[2,l]))*v[3,2])+xbar.data[3,l]; 

(*3rdpt*) 

xhigh[  1 ,3]  :=cvalue.data[  1 , 1  ]*(sqrt(abs(eigenvalues.dataI3, 1  ]))*  v[  1 ,3])+xbar.data[  1,1]; 

xhigh[2,3]:=cvalue.data[l,lj*(sqn(abs(eigenvalues.data[3.lj))*v[2.3])+xbar.data[2.1]; 

xhigh[3,3]:=cvalue.data[l,ll*(sqrt(abs(eigenvalues.datat3.1]))*v[3,3]Hxbar.data[3,l]; 

xlow[3,l]:=-cvalue.data[l,l]*(sqn(abs(eigenvalues.datatl.l]))*v[3.1])+xbar.data[3,l]; 

xlow[3.2]:=-cvalue.data[l.li*(sqn(abs(eigenvalues.data[2,l]))*v[3,2])+xbar.data[3,l]; 

(*  6th  pt  *) 

xlow[l,3]:=-cvalue.daia[I,l]='(sqn(abs(eigenvalues.data[3.1]))*v[1.3])+xbar.data[l,l]; 
xlow[2,3]:=-cvalue.datal  1 . 1  ]*(sqn(abs(eigenvalues.data[3.1]))*v[2.3])+xbar.data[2,l]; 
xlow[3,3]:=-cvalue.daia[l,l]*(sqri(abs(eigenvalues.daiaI3.1]))*v[3.3])+xbar.data[3,l]; 
end;  (if) 


(*  Claculations  lor  S/N  *) 

oneuvern:=  1 .0/n.daial  1.1); 
MaLk_niult(S,SbyN,onoovern); 

for  i;=l  to  ordp  do  begin 
for  j:=l  to  ordp  do  begin 
a[i,j]:=SbyN.data[i.j]; 
end;end; 


jac(ordp.v.a,nroi.d); 

EValStar,rows:=ordp;E  ValSlar.Cols:=  1 ; 

eVecStar.rows:=ordp;EVecSlar.Cols;=ordp; 

For  j:=l  to  ordp  Do  Begin 
(*  allow  neg  ev  *) 

EValStar.dataLj.l]:=d[j]; 

end; 

For  j;=l  to  evecStar.rows  do  begin 
for  k;=l  to  evecStar.cols  do  begin 
evecStar.data[j,k]:=v[j.k]; 
end; end; 

DsqrtEigenVals.rows;=Rniatrix.row's;DsqnEigenVals.cols:=Rinatrix.cols; 

For  i:=l  to  rmatrix.rows  do  begin 
For  k:=l  to  ordp  do  begin 
DsqrtEigenVals.data|i,k]:=().(); 
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end;end; 

For  i:=l  to  ordp  do  begin 

DsqnEigenVals.daiaIi,i]:=sqrt(abs(EValslar.data[i,l])); 

end; 

Mat_transpose(evecst  ar.tenip) ; 

MatMult(DSqrtEigenVals,iemp,tenip2); 
Matmult(evecstar.ienip2,Q); 
Z.rows:=ordp2.cols:=round(n.data[  1,1]); 

For  i;=l  to  ordp  do  begin 
fork:=l  toround(n.data[l,l])  do  begin 
z.data[i,k]:=sqrt(2.0*(ln(l/random)))*cos(2.0''‘pi’''random); 

end;end; 


matmulKQ.Z.iemp); 

MatAdd(temp,mu,xdaia): 

(*  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  Uie  major  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xhigh  and  XIow  *) 

(*  endpoints  of  axis  -  each  col  is  a  coordinate  for  a  point  *) 

(*  1st  pt  *) 

xhigh[  1 .4]  :=c  value.dataf  1 , 1  ]*(sqrt(abs(eigenvalues.data[  1 , 1  ]))*  v[  1 , 1  ))+xbar.data[  1,1]; 
xhigh[2,4];=cvaJue.datafl.l]*(sqrt(abs(eigenvalues.datall,l]))*v[2,l])+xbar.data[2,l]; 
(*  2nd  Pt  *) 

xhigh[1.5]:=cvalue.datall.]]*(sqn(abs(eigenvalues.data[2.1]))*v[1.2])+xbar.datatl,l]; 

xhigh[2.5];=cvalue.datail,I]*(sqrt(abs(eigcnvalues.data[2,l]))*v[2,2])+xbar.data[2,l]; 

(♦  4th  pt  *) 

xlow[1.4]=-cvalue.data[l.l]*(sqn(abs(eigenvalues.dataIl,l]))*v[l,l])+xbar.data[l,l]; 
xlow[2,4]:=-cvalue.data[l.l]*(sqn(abs(eigenvalues.data[l,l]))*v[2,l])+xbar.data[2,l]; 
(*  5th  Pt  *) 

xlow[  1 ,5]  ;=-cvalue.data[  1 . 1  ]*(sqrt(abs(eigenvalues.data[2, 1  ]))*  v[  1 ,2])+xbar.data[  1,1]; 
xlow[2,5]:=-cvahie.data[l.l]*(sqrt(abs(eigenvalues.datai2.1]))*v[2.2])+xbar.data[2,l]; 


If  ordp=3  then  begin 

xhigh[3,4]:=cvalue.data(l.l]*(sqrt(abs(eigenvalues.data{l,l]))*v[3.1])+xbar.datat3,l]; 
xhigh[3.5]:=cvalue.datall,l]*(sqri(abs(eigenvalues.datai2.1]))*v[3,2])+xbar.data[3,l]; 
(*  3rd  pt  *) 

xhigh[1.6]:=cvalue.data[l.l]*(sqrt(abs(eigenvalues.datat3,l]))*v[l,3])+xbar.datall,l]; 
xhigh[2.6]:=cvalue.data[  1 ,1  ]*(sqn(abs(eigenvalues.datai3,l]))*v[2,3])+xbar.data[2,l]; 
xhigh[3,6]:=cvalue.data[l,l]*(sqn(abs(eigenvalues.data[3,l]))*v[3,3])+xbar.data[3,l]; 
xlow[3,4]:=-cvalue.data[l,l]*(sqn(abs(eigenvalues.data[l,l]))*v[3,l])+xbar.data[3,l]; 
xlow[3.5]:=-cva]ue.dataIl.l]*(sqrt(abs(eigenvalues,datai2,l]))*v[3,2])+xbar.datai3,l]; 

(*6thpt*) 

xlowIl,6]:=-cvalue.data[l,l]*(sqn(abs(eigenvaIues.daia[3,l]))*v[l,3])+xbar.data[l,l]; 
xlow[2.6]:=-cvalue.datai  1 .1  ]*(sqrt(abs(eigenvalues.data[3,l]))*v[2,3])+xbar.data[2,l]; 
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xlow[3,6]:=-cvalue.data[l,l]*(sqri(abs(eigenvalues.daia[3,l]))*v[3.3])+xbar.data[3,l]; 
end;  {if) 


close  (Empdata); 

(*  OUTPUT  *) 

Gmatwrite(xbar,5,4,’X  Bar’,2tX.),190.3,6,7); 

Gniatwrite(S,5,4,  ’  S  Matrix  ’  ,50,2  35 ,3,6,7) ; 

OutTexiXY(GetMaxX  div  2-90,20,’PRESS  ENTER  FOR  GRAPH’); 
GMatwrite(Eigenvalues,6,5, ’Eigen  Values’,GetMaxX  div  2,235,3,6,7); 
GmatWrite(Eigenvectors,6,5,’E  vectors’, GetMaxX  div  2,285,3,6,7); 
readln; 

end;  (ReadData) 


Procedure  ReadDataTesKvar  xdaia,S:Mathniat.matx;var  xhigh,xlow:Real3byl2array; 
var  cvaIue,Mu,xbar;niathniai.niatx; 

var  look :boolean; Var  Eigen Values.eigenvectors.SbyN, 
evalstar.evecsiar:niathmai.matx;var  ordp:integer;var  rmatrix:mathmat.matx); 


Var 

sampOneitext; 

Samplel:array[  1..3,1..15]  of  real; 
begin 

CValue.rows:=  1  ;C  Value.Cols:=  1  ;cvalue.data[  1 , 1  ):=  I ; 
N.rows;=  1  ;N.col.s:=  1  ;N.dalal  1 , 1  ]:=  1 0; 
mu.rows:=ordp;Mu.cols;=  1 ; 

For  I:=l  to  ordp  do 
Mu.data[I,l  ]:=().(); 

GMatInput(CValue.3,2,’C  Value’,8(), 1 20.3,6,7); 

If  cvalue.daia[l,l] 

GinatInput(Mu.5.2,#23(),8().  190,3.6,7); 
GmatInput(n,2.1,’N’.GetMaxX  DIV  2.120,5.4,7); 

xdata.rows:=ordp;xdata.col.s:=Round(n.daia[  1,1]); 
Assign(sampOne,’c;\Samp  1  .dai’ ) ; 

Reset(sampOne); 


fori:=l  to  round(n.daia[  1,1])  do  begin 
read(sampOne.samplel  f  1  .ij);  end; 
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fori;=l  to  round(n.data[l,l])  do  begin 
read(sampOne,samplel  [2.i]); 
end; 

If  ordp=3  then  begin 
fori:=l  to  Round(n.data[l,l])  do  begin 
read(sanipOne, sample!  [3, i]); 
end;{for}  end;  (if) 

for  I:=l  to  ordp  do  begin 
For  J:=l  to  round(n.data[  1,1])  do  begin 
xdata.daia[I.J]:=Samplel[I,J]; 

End;end; 


GMATWRITE(xdata,6.2,”, 20.30.3.6.7); 

Mat_Transpose(xdaia,xdata_irans); 

one.rows:=xdata.cols;one.cols:=  I ; 

for  j:=l  to  one.rows  Do  Begin 
for  k;=l  to  one.cols  do  begin 
one.daia[j.k]:=l.(); 
end; 
end; 

Mat_Transpose(one.one_trans); 

identity.rows:=xdata.cols; 

identity  .cols'.=xciata.cols; 

for  j:=l  to  xdaia.cols  do  begin 
for  k;=  1  to  xdata.cols  do  begin 
identily.dala[j.k]:=().0; 
end; end; 

for  k:=l  to  xdata.cols  do  begin 
ideniiiy.daia[k,k]:=1.0; 
end; 


MatMult(one.one_trans.onebyonci); 
oneovern:=  1 .0/xdala.cols; 
oneOverNMinusOne;=  1 .0/(xdaia.cols- 1 .0); 
mat_k_muli(onebyi>net.ienip.onet)vern); 
Matsub(identity.temp.temp2); 

(♦  calculate  X  bar*) 

mai_k_mult(one.temp3.oneovern); 

matmult(xdata.temp3.xbar); 

Mat_k_mult(xdata.temp.oreovernminusone); 

Matmult(temp.temp2.temp3); 
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Matmult(temp3,xdata_trans,S); 

Gmatwrite(xbar,5,4,’X  Bar’ .260. 190.3,6,7); 

Gmatwrite(S,5,4,’S  Matrix’,50,235, 3,6,7); 

OutTextXY(GetMaxX  div  2-90,20,’PRESS  ENT1ER  FOR  GRAPH’); 
for  i:=l  to  s.rows  do  begin 
for  j:=l  to  s.cols  do  begin 
a[i.j]:=s.data[i,j]; 
end;end; 

(*  Initialize  D  matrix  *) 

DMatrix.rows:=S.rows;  DMatrix.cols:=S.Cols; 
for  j:=l  to  DMatrix.rows  Do  Begin 
For  k:=l  to  DMatrix.cols  Do  Begin 
DMatrix.data[j.k]:=0.O; 
end;end; 

(*  Calculate  D  matrix  from  S  matrix  *) 

For  j:=l  to  DMatrix.rows  Do  begin 
DMatrix.data[j.j]:=sqrt(S.data[j,j]); 
end; 

MatInvert(DMatrix,DInverse); 

MatMult(DInverse.S.tenip); 

MaiMult(temp.Dlnverse,RMairix); 


jac(ordp.v.a.nrot.d); 


EigenValues.rows:=ordp;Eigenvaliies.Cols:=l; 
eigenvectors.rows:=ordp;Eigenveciors.Cols:=ordp; 
For  j:=l  to  ordp  Do  Begin 
C"  allow  neg  ev  *) 

Eigenvalues.data[j,l]:=d[j]; 

end; 

FOr  j:=l  to  eigen vectors.ro ws  di)  begin 
for  k;=  1  to  eigenvectors.cols  do  begin 
eigenvectors.data[.j.k];=vU,k]; 
end; end; 


(*  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  the  ma  jor  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xhigh  and  Xlow  *) 

(*  endpoints  of  axis  -  each  col  is  a  coordinate  for  a  ptiint  *) 

(”'  1st  pt  *) 

xhigh(l,l]'.=cvalue.datall,l]*(sqrt(abs(eigenvalues.datall,l]))*v[l,l])+xbar.data(l,l]; 
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xhigh[2.11;=cvalue.daia[l.l]*(sqr\(abs(dgenvalues.datall,l]))*vI2,l])+xbar.dataI2,l]; 
(*  2nd  Pt  *) 

xhigh[  1 ,2]:=cvalue.data[l,l  ]*(scirt(abs(eigenvalues.data[2,l]))*v[l,2])+xbar.data[l,l]: 
xhigh[2,2]  :=c  value.daiai  1 , 1  ]*(sqn(ahs(eigenvalues.data[2, 1  ]))*v[2,2])+xbar.data[2.1  ]; 

(*  4th  pt  *) 

xlow[  1,1]  :=-cvalue.data[  1 , 1  ]*(sqrt(abs(eigenvalues.data[  1,  l]))*v[  1 , 1  ])+xbar.data[  1,1]; 
xlow[2, 1  ]  :=-cvalue.data[  1 , 1  ]*(sqn(abs(eigenvalues.data[  1 , 1  ]))•  v[2, 1  j)+xbar.data[2, 1  ] ; 
(*  5th  Pt  *) 

xlow[  1 ,2]  :=-cvalue.data[  1 , 1  ]*(sqn(abs(eigenvalues.data[2,  l]))*v[  1 ,2])+xbar.data[  1,1]; 
xlow[2,2]  :=-cvalue.data[  1 , 1  ]*(sqn(abs(eigenvalues.data[2, 1  ]))*v[2,2])+xbar.data[2,l  ]; 


If  ordp=3  then  begin 

xhigh[3.1]:=cvalue.data[l,l]*(sqn(abs(eigenvalues.data[l,l]))*v[3,l])+xbar.data[3,l]; 
xhigh[3.2]:=cvaUie.daia[l.l]*(sqn(abs(eigenvaIues.data[2.1]))*v[3,2])+xbar.data[3.1]; 
(*  3rd  pi  *) 

xhigh[l,3]:=cvalue.daia(l,l]*(sqn(abs(eigenva]ues.data[3,l]))*v[l,3])+xbar.data[l,l]; 

xhighi2,3]:=cvalue.data[l.l]*(sqrt(abs(eigenvalues.datai3,l]))*v[2,3])+xbar.data[2,l]; 

xhigh[3,3];=cvalue.data[l.l]*(sqrt(abs(eigenvalues.data[3,l]))*v[3.3])+xbar.data[3,l]; 

xlow[3,l]:=-cvalue.data[I,l]*(sqn(abs(eigenvaIues.dataIl,l]))*v[3.1])+xbar.data[3,l]; 

xlow(3.2]:=-cva]ue.daia[l.l]*(sqrt(ab,s(eigenvalues.data[2.1]))*v[3,2])+xbar.data[3,l]; 

(♦  6th  pt  *) 

xlow[  1.3]  :=-cvalue.daia[  1.1]  *(.sqn(  ab.s(eigenvalues.daial  3. 1  ]))*  v[  1 .3])+xbar.data[  1,1]; 
xlow[2.3]:=-cvalue.datail,l]*(sqn(abs(eigenvalues.daia[3.1]))*v[2.3])+xbar.data[2,l]; 
xlow[3.3];=-cvalue.data[l,ll*(sqrt(abs(eigenvalues.dutal3.1]))*v[3,3])+xbar.data[3,l]; 
end;  {if} 

(*  Calculations  for  S/N  *) 

oneovern;=l  .()/n.data[  1.1]; 

Mat_k_niult(S.SbyN.oneovern); 

for  i:=l  to  ordp  do  begin 
for  j:=l  to  ordp  do  begin 
a[i.j]:=SbyN.daia[i.jl; 
end;end; 


jac(ordp.v.a.nroi.d); 

EValStar.ro'.Vi.=ordp;E  ValSiar.Cols:=  1 ; 
eVecStar.rows:=ordp;EVecSiar.Cols:=ordp; 
For  j:=l  to  ordp  Do  Begin 
(*  allow  neg  ev  *) 

EValStar.data[j.l]:=d[j); 

end; 

For  j:=l  to  evecStar.rows  do  begin 
for  k;=l  to  evecSiar.cols  do  begin 
evecSiar.data[.j.k]:=v[i.k]; 
end; end; 
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DsqrtEigenVals.rows:=Rmairix.rows;DsqnEigenVaJs.cols;=Rmatrix.cols: 

For  i:=l  to  rmatrix.rows  do  begin 
For  k:=l  to  ordp  do  begin 
DsqrtEigenVals.data[i,k]:=0.0; 
end;end; 

For  i:=l  to  ordp  do  begin 

DsqrtEigenVals.data[i,i3:=sqrt(abs(EVaIstar.dataIi.  1  ])); 
end; 

Mat_transpose(evecstar.temp); 

MatMult(DSqrtEigenVals,tenip,tenip2); 

Matmult(evecstar,temp2,Q); 

Z.rows:=ordp;Z.cols:=round(n.data[  1,1]); 

For  i:=l  to  ordp  do  begin 
fork:=l  to  round(n.data[l,l])  do  begin 
2.datari,k]:=sqrt(2.0*(ln(l/random)))*cos(2.0*pi*random); 

end;end; 

(*  This  section  uses  the  Eigen  values  and  vectors  to  find  *) 

(*  the  endpoints  of  the  major  and  minor  axis  of  each  ellipse  *) 

(*  These  are  put  into  Xliigh  and  Xlovv  *) 

(*  endpoints  of  axis  -  each  col  is  a  cotirdinate  for  a  point  *) 

(*  1st  pt  *) 

xhighi  1 .4]:=cvalue.data(  1 . 1  ]  *(sqn(abs(eigenvalues.data[  1 , 1  ]))*  v[  1 , 1  ])+xbar.data[  1,1]; 
xhigh(2,4j:=cvalue.daia[  1 , 1  ]*(sqn(abs(eigenvalues.data[  1 , 1  ]))*v[2.1  ])+xbar.data[2,l  ]; 
(*  2nd  Pt  *) 

xhighi  1  ..‘5]:=cvalue.daial  1 , 1  ]*(sqn(abs(eigenvalues.data[2.1  ]))*v[  1 ,2])+xbar.data[  1,1]; 
xhigh[2,5]:=cvalue.data[l.l]*(sqn(abs(eigenvalues.dataI2,l]))*v[2,2])+xbar.data[2,l]; 

(*  4th  pt  *) 

xlow[l. 4];=-cvalue.data[l.l]*(sqrt(abs(  eigenvalues,  data!  l.l]))*v[l.l])+xbar.datal  1,1]; 
xlow[2.4]:=-cvalue.data[l,l]*(sqn(ahs(eitienvalues.datail,l]))*v[2,l])+xbar.data[2,l]; 
(*  5th  Pt  *) 

xlow[  1 ,5]  :=-cvalue.data(  1 , 1  ]*(sqn(abs(eigenvalues.data[2, 1  ]))*v[  1 ,2])+xbar.data[  1,1]; 
xlow[2,.‘5]:=-cvalue.data[l,ll*(sqn(ab,s(eigenva!ues.datai2,l)))*v[2.2])+xbar.data[2,l]; 


Ifordp=.^  then  begin 

xhigh[.1,4];=cvalue.daia[l,l]*(sqn(abs(eigenvalues.data[l,l]))*v[3,l])+xbar.data[3,l]; 
xhigh[3,5]:=cvalue.datail,l]*(sqrt(abs(eigenvalues.data[2,l]))*v[3,2])+xbar.data[3,l]; 
(*  3rd  pt  *) 

xhighi  l,6]:=cvalue.datall,l]*(sqrt(abs(eigenvalues.datal3,l]))*«'ll,3])+xbar.data[l,l]; 

xhighI2,6]:=cvalue.datail,l]*(sqrt(abs(eigenvalues.datal3,l]))*v[2,3])+xbar.data[2,l]; 

xhight3,6]:=cvalue.datall,l]*(sqn(abs(eigenvalues.datal3,l]))*v[3,3])+xbar.data[3,l]; 

xlowI3,4]:=-cvalue.dataIl.l]*(sqrt(abs(eigenvalues.dataIl,l]))*vI3,l])+xbar.datal3.1]; 

xlowI3,5]:=-cvalue.datatl,l]*(sqn(ahs(eigenvalues.datai2,l]))*vI3,2])+xbar.data[3.1]; 

(*  6th  pt  *) 

xlowl  1 ,6]  :=-cvaIue.dat  al  1 . 1  ]*(sqn(  ab.sfeigenvalues.datal  3. 1  ]))*  vl  1 ,3])+xbar.datal  1,1]; 
xlowI2.6]:=-cvalue.datai  I,l]"'(sqn(abs(eigenvalues.datal3,l]))*vt2,3])+xbar.datal2,l]; 
xlowI3,6]:=-cvalue.dataIl,l]*(sqrt(abs(eigenvalues.dataI3,l]))*vI3,3])+xbar.dataI3,l]; 
end;  (if) 
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close  (Sampone); 

GMatwrite(RMairix,5,4.’rho’.5(),28.5,3.6,7); 

GMatwrite(EigenvaIues.6,5, ’Eigen  Values’.GetMaxX  div  2,235,3,6,7); 
GmatWrite(Eigenveciors,6,5,’E  vectors’, GetMaxX  div  2,285,3,6,7); 
readln;tirscr; 
end;  {ReadDaia) 


end. 
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Appendix  G 


The  descriptive  statistics  are  expressed  and  derived  in  matrix  format  The  three  main  statistics 
needed  are: 

1.  Sample  Means: 


2.  Sample  variances  and  covariances: 


3.  Sample  correlations: 


Sjl  ^12  ...  Sip 

S21  ^22  •••  • 


I  Jpl  Sp2...  ^22] 


Til  ri2  ...  rip 

^21  f"22  •••  • 


Where  p  =  the  number  of  variables  which  corresponds  to  the  number  of  dimensions  to  be  displayed, 
'nie  sample  mean  x  is  an  unbiased  estimate  of  the  pc^ation  meaa  The  sample  variance  covariance 
matrix  5  is  the  unbiased  estimate  for  the  population  vaiiance/covariance  matrix  X.  Covariance  and 
corrdation  measure  the  variable’s  linear  associations. 

First  the  matrix  definition  of  terms  where  gathered.  The  x  matrix  is  the  matrix  of  sample  values 
for  ap  s  3  sample  of  n  observations: 


^II  ^12 

s  X21  X22  •  •  •  J>2ii 
X31  X32  ...  X3, 

The  1  matrix  is  a  column  matrixpx  1  of  I’s: 
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/matrix; 


1 

Isxl®  1 
1 


/  = 


100 

010 

001 


The  7  matrix  is  ap  X />  matrix  of  I’s: 


The  identity  matrix  s  7)k3 


1 1 1 
1 1 1 
1 1 1 


Eigenvalues  are  scalars  Xi.  . .  .X, 


IA-X/l=0 


1x1  =  determinate  of  x 

EVi  is  a  characteristic  vector  called  eigenvector  that  is  associated  widi  a  eigenvalue  Xi  sudi  that : 

Aev  =  Xev 

^ii_r  ^iir 

[_  ^21  ^J2  J  L  ^2  J 

At  this  point  the  idea  of  statistical  distance  needs  to  be  discussed.  Statistical  distance  is  rdated 
to  straight  line  of  Euclidean  distance.  In  Euclidean  distance  forp  s  2  ( 2  dimoisions),  the  distance 
between  two  points  can  be  calculated  using  the  Pydiagorean  theorem  (  see  Rgure  G.l).  The 


distance  between  point  0,  which  is  assumed  to  be  at  the  origin,  and  pointp  is  <f(0.  P). 

d(0,P)sV;jJ+;^ 

All  points  which  lie  a  constant  distance  from  c,  fiom  0  satisfy  ( fbrp  s  2). 

The  problem  with  using  Euclidean  distance  measures  to  express  statistical  distances  measures 
is  ttiat  the  Eudidean  distance  measure  does  not  take  into  account  the  randmn  sample’s  variability 
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involved  with  statistical  study.  The  Euclidean  measure  assumes  the  coordinate  of  each  point 
contributes  equally  to  the  calculation  of  distance.  When  dealing  with  statistics,  it  becomes 
necessary  to  weigh  each  coordinate  according  to  the  magnitude  of  its  variability  ( as  described  in 
each  s  matrix)  the  correlation  between  its  coordinates  ( as  described  in  the  r  and  /?  matrices).  The 
statistical  distance  equations  can  be  derived  in  the  same  manner  as  Euclidean  distance.  A  random 
sample  of  points  with  greater  variability  in  the  direction  then  the  Vj  direction,  and  Xj « 3c2  =  0  and 
X)  independent  from  Xj  (i.e.  -  0)  is  shown  in  Figure  G.2. 


3 

rj 

• 

•  • 

X, 

•  • 

•  ••  • 

• 

•  ♦ 

Rgun  GL2.  Scatter  Pht 


This  is  an  ellipse  equation  with  its  center  at  the  origin  (0,0).  which  is  at  the  point  (xi  Xj).  Ihe  major  axis 
is  along  the  x,  axis.  There  is  more  variability  in  the  Xi  axis.  The  major  and  minw  axis  are  coincidental 
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with  the  Xi  and  Xi  axis,  respectfully.  A  more  standard  form  of  distance  equation  for  the  two  points  is 
given  by: 

Sti  S22  Spp 

It  must  be  remembered  that  this  equation  is  based  on  the  assumption  of  indqiendent  variables  (i.e. 
Rx2  -  0).  In  must  relevant  sanq)les  Rxix^*  0.  tfierefore  the  effect  of  removing  this  assumption  needs 
to  be  studied. 

For  a  case  of  />  =  2  and  /?i2  >  0,  the  scatter  plot  in  Figure  35  becomes  die  plot  in  Hgure  G.3. 


FIgun  CL3.  Scatter  pht  whh  Ri3>  0 


The  correlation  R12  =  -7= — p=  =  cos  ( 0,2)  ©12=  the  angle  between  x,  and  x,  and  the  angle 

•  VS22 


between  X2  and  X2 


0,2  =  cos->(^,2) 


Therefore,  the  ellipse  which  describes  die  points  equal  distance  (statistical  distances)  C  from  the  center 
(p  =  2)  or  (p  =  3),  has  its  major  and  minor  axis  rebate  0^  from  the  Xj,  x^  axis  when /{y  ^  0  and  the  value 
of  0^  =  cos-'(  Rf). 

d(0.P).'W^ 

J„  J22 

wheresii  and  ^22  arecalculated  variances  with  relationship  to  X|  and  X2  respectively.  Substituting  these 
equations  into  the  distances  equation  d(0,P)  yidds 

</(0,F)  =  Va„  jrj2fl,2X,X2  +  a22a^ 


where 
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_ _ cos^(Q) _ 

”  cos2(0)  Su  +  2  sio(O)  cos(0)  sin  +  sitf  (0)  S32 

^ _ sitf(0) _ 

Gos^0)  -  2  sin(0)  cos(0)  +  sin2(0) 

_ _ sirf(0) _ 

~  cos^(0)  Ji,  +  2  sin(0)  cos(0)  +  sin2(0)  522 

^ _ cos^0) _ 

cos^0)  S22  ”  2  sin(0)  cos(0)  J12  +  sm*(0)  Sn 

_ _ cosK0)  cos(0) _ 

”  cosK0)  522  “  2  sin(0)  cos(0)  +  sin2(0)  S22 

_ siD(0)  cos(0) _ 

cos^(0)  J22  “  2  sin(0)  cos(0)  512  +  sin2(0) 

The  equation  for  an  ellipse  for  d(,Q,  P)  =  CmlRii*0  becomes 

c2  =  a„(jr,  -  +  2a, 2(^1  -  y,)  (xj  -  yi)  +  022(^2  -  >2)^ 

In  order  to  plot  this  ellipse  the  above  equation  must  be  stated  as  two  relationships  of  X2  in  terms 

of  Xj.  This  separation  is  important  because  the  equation  for  die  ellipse  is  not  a  function.  For  every 

value  of  X)  y,  pair  there  axe  two  (X2.  y^  pairs  solves  this  equation.  The  equation  is  divided  into  a 

top  and  bottom  half.  Each  representing  one  of  two  possible  solutions.  These  relationships  are: 

Since  the  angle  0  is  related  to  the  correlation  between  die  variables,  it  is  important  to  show  this 

concept  to  the  student.  The  easiest  way  to  show  this  is  to  display  the  major’s  and  minor’s  axis  end 

points.  This  can  be  done  using  the  eigenvalues  and  eignvectors.  Consider  the  ellipse  in  Figure  G.4 

The  half  length  of  the  major  axis  is  c  =  and  the  half  length  of  the  minor  axis  is  c  =  When 


9lQ#fiwctor  2 

..•igwivtetor  1 

*  tigtnvclof  1 

*  «lginyrtof  a 

FIgun  G.4.  EndPolnt$  ofMalor  and  Minor  Axl» 
G.5 


you  multiply  these  constants  times  the  corresponding  eignvector  the  result  is  the  distance  in  the 
eigenvector’s  direction  which  yields  the  coordinates  of  the  axis’s.  For  example: 

eigenvector!  = 
c  •  eigenvector!  +  •  = 


=  coordinate  of  die  major  axis 


This  is  for  a  ellipse  centered  at  the  origin.  If  the  ellipse  is  coitered  at  x = j  then  the  coordinate  is 
given  by 


(eigenvector!  =x)  = 


.VX>(X!+X2)  . 


At  this  point  all  mathematical  principles  required  to  produce  the  program  have  been  devdoped.  The 
next  phase  consisted  of  devdoping  the  actual  program. 
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Appendix  H 


This  MathCad  Template  was  used  to  develop  and  test  the  formulas 
and  concepts  needed  for  the  development  of  the  Pascal  Program 
A3sciioo.exe.  Plotting  an  Blipse  ORIGIN  =  1 


XI 


'26.7  38.4  19.2  20.6  18.9  14.8  19.0  14.2  13.7  7.7 


^  3.3  2.4 

1.7  1.0 

.9 

1.0 

2.7 

.8 

1.1 

.2  / 

I  7  4 

5  6.6 

8.7 

4.6 

3.8 

6.8 

8.7 

4.8  \ 

X  - 

26.7  38.4 

19.2  20.6 

18.9 

14.8 

19.0 

14.2 

13.7 

7.7 

\  3.3  2.4 

1.7  1.0 

.9 

1.0 

2.7 

.8 

1.1 

.2 

n  =  cols(X) 
onej  =  1 

xbar 

V  one 

=  A* 

n 

i 

=  1.. 

ools(X) 

xone  =  ( 

xtwo  = 

(x^: 

)<.> 

xthree 

=  (x-^ 

^<3> 

/6 

1 

xbar  = 

19.32 

i  1.51 

1 

1 

S 

-  ’  x- 

n  -  1  ^ 

identity(n)  - 

t)  ' 

one- one  J 

•x^ 

/  3.313  -3.258 

-0.46  \ 

i 

=  1.. 

cols(S) 

-3.258  70.411  5.873 
-0.46  5.873  0.97  / 


=  Ki 


D12 


1 1.82 
0 

\o 


0 

8.391 

0 


0 

0 

0.985/ 


HJ 


D12INV  =  D12'^ 


0.549  0  0 

D12INV=  0  0.119  0 

\0  0  1.015 


1  -0.213  -0.257 

R  =  D12INVSD12INV  R=  -0.213  1  0.711 

\-0.257  0.711  1 

This  angle  -  THETA12.angle  is  the  angle  for  the  relationship  between 
andX2. 

THETA12  =  acos(  )  THETA12  -  1.786 


THETA12angle  =  acos(R2  ,)•—  THETA12ang|e  =  102.315 

This  angle  -  THETA13.angle  is  the  angle  for  the  relationship  between  XI 
and  X3. 

THETA13  =  acos(R3j)  THETA13  «  1.83  in  Radians 


THETA13  angle  --  ac»s(  R3  j )  —  THETA13  angle  “  104.869 

This  angle  -  THETA23.angle  is  the  angle  for  the  relationship  between  X2 
and  X3. 

THETA23  =  acos(  R2^3)  thETA23  =  0.78  in  Radians 


THETA23  angle  =  ( R2 , 3 )  *  —  THETA23  angle  “  ^-708 

c  =  2 

si  1  =  S'!  ^  s12  &l  2  s21  S2  ^  s22  '=  S2  2 


H.2 


s11  =  3.313 
s13  =  3) 

si  3  *  -0.46 


s12  =  -3.258 
s31  = 

s31  =  -0.46 


s21  =  -3.258 
s33  =  Sp  3j 

s33  =  0.97 


s22  =  70.411 
s23  =  S^2.3) 

s23  *  5.873 


Calculate  the  EIGENVALUES  AND  EIGENVECTORS 


ev  =  eigenvals(S) 

ev 

eveci 


3.167  \ 
71.063 


These  are  the  eigenvalues 


\  0.464  / 
eigenvec(S.  ev-j ) 


evec2  =  eigenvec(S.  ev2) 
evec3  =  eigenvec(S,  ev3) 


eveci  = 

^-0.996\ 

-0.054 

evec2  ® 

l-0.0A6\ 

0.995 

evec3  ® 

f  0.069  \ 

-0.08 

[  1 

i  0.065  i 

i  0.084  i 

\  0.994/ 

The  above  are  the  eigenvectors  associated  with  the 
eigenvalues  found  above. 

c  =  2 

k1  :=  ^  k3  =  c-fivj 

k1  =  3.559  k2  =  1686  ’ 

ax1  =  k1  eveci  +  xbar  alxn  =  xbar  -  k1  eveci 

ax2  =  k2  evec2  +  xbar  a2xn  =  xbar  -  k2  evec2^‘  |  I  “  7.118 

ax3  =  k3  evec3  +  xbar  a3xn  =  xbar  -  k3  evec3^  ^  ^  ”  33.7< 

axlb  =  k2  evec1  +  xbar  alxnb  =  xbar  -  k2  evec12' |  k3  evec3 1  «  2.724 

ax2b  =  k1evec2  +■  xbar  a2xnb  =  xbar  -  k1-evec2 

ax3b  =  k2  evec3  +  xbar  a3xnb  =  xbar  -  k2  evec3 
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Iengthmaj12  =  3.559  Iengthmax13  *  3.559  Iengthma)c23  =  16.^ 
Iengthmin12  =  Iengthmin13  =  c- 

Iengthmin12  =  16.86  Iengthmin13  =  1.362  =  1.362 


You  need  to  associate  ev(1)  with  LARGEST  SAMPLE  VARIANCE  maxls(ii)] 

Compute  the  Coordinates  of  the  ENDPOINTS  of 
the  MAJOR  and  MINOR  AXES  of  the  Ellipse 
and  Plot  the  ELLIPSE  using  them 

THIS  CASE:  si  1  is  largest  Sample  Variance  so  evl  ~  si  1 

ev2~s22 


Compute  maxv  MATRIX  {see  my  notes  to  you} ...  and  use 
DIAGONAL  VALUES  of  maxv  to  set  min  and  max  values  for 
range  of  INDEPENDENT  VARIABLE  of  Plot  (here  x1) 

Si  1  *  3.313  evi  *  3.167 

ev2  =  71.063 


S2  2  =  70.411 


H.4 


maxvxl 

:=  c-(J^'evec1,) 

+  xbar^ 

maxvxl  *  2.453 

minvxl  = 

-c-(  j^-evec1,l 

+  xbar^ 

minvxl  =  9.547 

maxvx2 

=  c-(^-evec22' 

)  +  xbar2 

maxvx2  «  36.101 

minvx2  = 

-c-(j^'evec22) 

+  xbar2 

minvx2  -  2.539 

Caution:  We  add  XBAR  to  make  points  relative  to  CENTROID 
Elliptical  Functions  Derived  by  MACSYMA... 

This  section  does  the  calculations  for  XI  vs  X2: 

x2a  =  s12^  -  s11s22  x2b  =  2  sl1s22  -  2  s12^ 

x2c  =  s12^  -  s11s22  xbarl  =  xbar^  xbar2  =  xbar2 

x2a  =  -222.681  x2b  =  445.362  x2c  =  -222.681 
A1  =  -sirxbar2  A3(x1)  =  x2bxrxbari 

A2  =  x2a  ( xbar^ )  ^  A3  ( x1 )  =  x2b-  xbar^ 

A4(x1)  =  x2cx1^  A5  =  c^s11^s22  A6  =  -c^s11s12^ 
A4prime(^n  =  2  x2c  x1  A7(x1)  =  s12  xbar^  -  s12  x1 

prime  ( ■  -  si  2 

A1  +  (a2  +  x2bx1'xbari  +  x2cx1^  +  A5  +  A6)  +  si; 

elipu12(x1)  = - ^ ^ - 

8l1 


//.5 


1 


( 


elipu12  prim0(^1 ) 


2JA2  +  x2b-xrxbari  +  x2cxk  +  A5  +  A6 


prime(xl)  =  ^ — elipu12(x1) 
dxl 

elipu12prjme( 9-64051)  *  3640.49 
prime  (9.64051)  =  3639.702 


elipb12(x1 ) 


-A1  ^  VA2  ^  A3(x1)  ^  A4(x1)  A5  A6  -  A7(xi; 

s11 


This  section  does  the  calculations  for  XI  vs  X3: 
x3a  =  s13^  -  s11s33  x3b  =  2  s11’s33  -  2  s13‘' 

x3c  =  s13^  -  sirs33  xbarl  =  xbar^  xbar3  =  xbar3 

x2a  *  -222.681  x2b  *  445.362  x2c  *  -222.681 
61  -  -sirxbar3  62  =  x3a-(xbar^)^  63(x1)  =  xSb-xl-xbar^ 

64(x1)  =  x3cx1^  65  =  c^s11^s33  66  =  -c^s11s13^ 

67(x1)  =  s13-xbar^  -  s13  x1 


H.6 


elipu13(x1)  = 


-(b1  +  Jb2  +  B3(x1)  +  B4(xl)  +  B5  +  B6  +  B7(x1)) 


s11 


elipb13(x1)  = 


-B1  +  Jb2  +  B3(xl)  +  B4(x1)  +  B5  +  B6  -  B7(x1) 

s11 


This  section  does  the  calculations  for  X2  vs  X3: 

x3a  =  s23^  -  s22  s33  x3b  =  2  s22  s33  -  2  s23^ 

x3c  =  s23^  -  s22  s33  xbar2  =  xbarg  "  ^*^3 

x3a  *=  -33.797  x3b  =  67.594  x3c  =  -33.797 

Cl  =  -s22xbar3C2  =  x3a(xbar2)^  C3(x2)  =  x3bx2xbar2 
C4(x2)  =  x3c  x2C5  =  c^  s22^  s33  C6  =  -c^  s22  s23^ 


C7(x2)  =  s23  xbar2  -  s23  x2 


elipu23  ( x2 ) 


-Ici 


C2  C3(x2) 


C4(x2)  t  C5  ^  C6  t  C7(x2) 
s22 


elipb23(x2)  = 
6  ■=  .1 


-Cl 


C2 


C3(x2)  ^ 


C4(x2)  ^  C5  C6  -  C7(x2) 
s22 


fowl  =  minvxl  ® 

xbar2  =  19.32 

highl  =  maxvxl 


low2  =  minvx2 
high2  =  maxvx2 


fowl  =  9.647  highl  *  2.453 


highl  =  if  ( maxvxl  >  minvxl ,  maxvxl ,  minvxl ) 
lowl  =  if  ( maxvxl  >  minvxl .  minvxl ,  maxvxl ) 

high2  =  If(maxvx2>  minvx2.  maxvx2,  minvx2) 
low2  =  if  ( maxvx2  >  minvx2 .  minvx2 .  maxvx2 ) 
fowl  «  2.453 
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highi  *  9.547 
lowl  =  2.453 


THETA12  angle  *  ^02.315 
Iengthmaj12  »  3.559 


hiahl  =  9.547 
highi  :=  9.63 


s  =  lengthma|12  cos(90  -  THETA12 
s  =  3.447  xbar^  +  s  =  9.447 


lowl  =  lowl  -  .01 
6  =  .02 

x1  =  lowl .  lowl  +  6..  highi 
prime  ( 9.63  )=  58.133 
prime  (xbar^)  *  -0.983 
prime  (lowl  -  .0135)  =  -23.537 


elipb12(6.09)  »  35.623 
elipu12( 9.64051)  *  15.72 


Note  lengthmin>lengthmaj  for  12 


-0.213  -0.2571 


R  *  -0.213  1 


0.711 


-0.257  0.711  1 


i  =  1  ..  2 


endpointxl 

endpointxl  2 
endpointx2i 
endpoint>c22 


endpointxl  - 


endpointx2 


a1xni 


alxnr 


2.453  \ 
9.547/ 

19.128 

19.512 


endpointx2l2 

endpointx21i 

endpointx222 

endpointx22^ 


THETA12  -  -  *  12.315 -deg 


endpointx21 


endpointx22 


a2xn^ 

ax22 

a2xn<: 


6.81 6  \ 

5.184/ 

2.539 

36.101 
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Graph  of  XI  vs  X2 


elipu12(x1 ) 
elipb12(x1 ) 
endpointx2j 

endpointx22| 


xKxl .  endpointx1|.  endpointx21 1 


6  =  .14 

c  =  2 

endpointxIS^  =  axl^ 
enclpointx132  =  alxn^ 

endpoin1x23j  =  axl3 
endpointx232  =  a1xn3 
/  2.453 

endpoin1x13  « 

\  9.547 


i  =  1  ..  2 

THETA13  =  104.869*  deg 


endpointx231^  =  ax5| 
endpoin1x23l2  =  a3xn.| 

endpoin1x32^  =  ax33 


endpojn1x322  =  a3xn3 


endpointx231 


/  6.094  \ 
\  5.906/ 


endpointx23 


1.74  \ 
1.28/ 


endpoinfx32  ~ 


2.865  \ 
0.155/ 
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Graph  of 
XI  vsX3 


-0.46  1.632  3.724  5.B16  7.908  10 

x1 ,  x1 .  endpointxl  3j ,  endpointx231  j 


«  =  .14  i  =  '-2 

^(2.3)  ® 


xbar  * 


®  I 

19.32 


\1.51  / 


THETA23  *  44.708  -  deg 
Iengthnnin23  «  1.362 

iengthma)(23  »  16.86 


V 


% 


x2  =  low2.low2  +  8..  high2 
endpointx2.|  =  ax22 


endptminx2^  =  ax32 


endpoin1x22  =  a2xn2 


endptminx22  =  a3xn2 


endpointx3^  =  ax23 


erKfptminx3^  =  8x83 


endpointx32  =  a2xn3 


endptminx32  =  88x03 


endpointx2  = 


36.101 

2.539 


endptminx2  * 


19.211  \ 
19.429/ 


t 
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endpointx3 


2.921  \ 
0.099/ 


endptminxd  = 


2.865  \ 
0.155/ 


Graph  of  X2  vs  X3 


H.ll 
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contained,  calculating  all  the  statistical  values  it  requires  to  create  the  various  geometric  images.  The 
student  has  complete  control  in  choosing  what  scenario  they  wish  to  study.  The  orogram  was  tested  using 
four  specific  scenarios  which  represented  a  cross  section  of  all  possible  scenario^;.  W  'hin  each  of  these 
scenarios  were  several  options  which  were  designed  to  encapsulate  different  aspects  of  the  curriculum. 
The  results  of  the  research  showed  that  the  program,  under  the  aegis  of  the  WAM,  does  facilitate  the 
visualization  and  verbalization  of  the  complex  mathematical  concepts  associated  with  covariance 
structures.  The  learning  environment  was  found  to  promote  the  creation  of  new  knowledge  on  three 
distinct  levels. 


14  SUBJECT  TERMS 

Statistics,  Learning,  Computer,  Covariance,  Variance,  Graphics,  Geometric 
Approach 

17.  SECURITY  CLASSIFICATION  18.  SECURITY  CLASSIFICATION  1V-  SECURJY  CLASS  F  l  .AT  lON  I  Y LiVA  ;  '  .ON  Dr  ASS  TRACT 

OF  REPORT  OF  THIS  PAGE  OF  ABSTRACT  1 

Unclassifed  Unclassifed  Unclassifed  !  UL 


o  cr  paces 

_ 205 

16  PRICE  CCD 


NSN  7540-01 -280-5S00 


AFTT  Control  Number  AFIT/gsm/ENC/92s-9 

AFTT  RESEARCH  ASSESSMENT 

The  purpose  of  this  questionnaire  is  to  detennine  the  potential  for  cuirent  and  future  applications 
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4.  Often  it  is  not  possible  to  attach  equivalent  dollar  values  to  research,  although  the  results  of 
the  research  may,  in  fact,  be  imponanL  Whether  or  not  you  were  able  to  establish  an  equivalent 
value  for  this  research  (3,  above)  what  is  your  estimate  of  its  significance? 
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